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PREFACE 


This manual is intended for programming-support customer 
engineers and programmers who require specific information about 
queued sequential access method (QSAM), basic sequential access 
sd pa CBSAM), and basic partitioned access method (BPAM) 
routines. 


This manual has the following parts: 


FIntroduction® describes the sequential access method (SAM) 
routines and includes a reference to Diagram A, "Sequential 
Access Method—Overview." This diagram lists the macro 
statements used with SAM programming techniques and directs the 
Beschioat to appropriate diagrams and figures in other parts of the 
manual. 


In "Method of Operation," SAM routines are described in the 
following categories: 


e Queued sequential access method (QSAM) routines that cause 
pel de and retrieval of data records arranged in sequential 
order. 


e Basic sequential access method (BSAM) routines that cause 
eeyroee and retrieval of data blocks arranged in sequential 
order. 


6 Basic partitioned access method CBPAM) routines that cause 
storage and retrieval of data blocks in a member of a 
partitioned data set. They can also construct entries and 
zeerce for entries in the directory of a partitioned data 
set. 


® Executors that operate with input/output support routines. 


@ Buffer-pool management routines that furnish buffer space in 
virtual storage. 


e Problem determination that helps the user determine the 
causes of abends by providing more information on the reason 
for the termination. 


¢ SVC routines that provide supervisor state operation for 
bola pt that cannot be done in the problem state or in the 
user's key. 


® Task recovery routines that provide explicit validity 
checking for SVC routines that experience program checks or 
other abend conditions. 


"Program Organization and Flow of Control" contains diagrams 
oe describe the organization and flow of control of the SA 
routines. 


"Directory" lists the names of the sequential access method 
modules in alphabetic order. Each entry contains the module 
name, type, CSECT name, SVC entry (if any), and references to 
figures and appendixes in other parts of the manual that have 
information about the module. 


"Data Areas" shows how various control blocks are used in QSAM 
and BSAM. This section also describes the access method save 
area for user totaling and the job entry subsystem (JES) 
compatibility interface control block. "Data Areas™ does not 
describe in detail all fields of the system control blocks 
referred to in this manual. For more detailed information about 
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system control blocks, see MVS/Extended Acchi tecture Data 


Areas-JES2, LYB8-1191, and MVS/Extended Architecture Data 
Areas—JES3, LYBS-1195. 


"Diagnostic Aids" contains diagrams of control blocks and an 
abend codes cross-reference table. 


"Appendixes™ describe channel programs for direct-access 
storage, and BDAM create channel programs. 


UIS OWLEDG 


To use this book efficiently, you should be familiar with the 
following topics: 


@ Basic concepts of data management 
e Processing sequential and partitioned data sets 
uIS) DING 


~The pe Rreoce are discussed in MVS/Extended Architecture Data 
Administration Guide, GC26-4140. 


D ICATIGNS — 


Within the text, references are made to the publications listed 
in the table below: 





| Short Title Publication Title Order Number 


ACF/TCAM Advanced Communications $€30-3137 
Diagnosis Guide Fune for TCA ersio 

Diagnosis Guide 
ACF/TCAM Advanced Communications LY30-3052 
Diagnosis ion or TCAM, Versio 
Reference Dis osis Reference 


Data MVS7Extended Architecture 
Administration: Data Administration: Macro 









Macro Instruction Reference 
Instruction 
Reference 


Data Areas MVSZExtended Architecture LYB8-1191 
Data eas VS/ JES 
Data Areas VS/ d Arc tecture LYB8-1195 
Data Rrcas CHVSSuES 3) 























Debugging S/Extended chitecture LC28~-1164? 
Handbook Debugging Handbook, Volumes LC28-1165 
1 through 5 LC28-1166 

LC28-1167 

LC28-1168 
















IBM 3800 IBM_ 3800 Printing Subsystem 
Printing Models _ 3 and 8 Programmer's 
Subsystem Guide 

Programmer's 

Guide 


Note: 


a All five volumes may be ordered under one order number, 
LBOF~1015. 
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Short Title Publication Title 


Initialization MVS/Extended Architecture GC28-1149 
and Tuning System Programming Libra 
Guide Initialization and Tuning 

















JES2 Logic MVS/Extended Architecture LY24-6008 
JES2 Logic 

Open/Close/E0V MVS/Extended Architecture LY26- 3966 

Logic Open/Close/EQV_ Logic 


OS/VS Logic for 
IBM 3890 


Document 
Processor 





OS/VS Logic for IBM 3890 SY24-5163 
Document Processor 
Service Aids MVS/Extended Architecture GC28-1159 
System Programming Libra 
Service Aids 
SYS1.LOGREC MVS/Extended Architecture 
Error Recording System Programming Library: 
SYS1.LOGREC Error Recording 
System Codes VS/Extended Archi tectur GC28-1157 
Message Library: System 
Codes 
System—Data VS/Extended Architecture 
Administration system—Data Administration 
System Logic MVS/Extended Architecture SY28-1208 
Library System Logic Library, through 
Volumes 1 through 16 LY28-1266 
System Messages MVS/Extended Architecture Archi tec fWs/Pxtended Architecture 2 occe= 1376 
Message Library: System 
Messages, poerys 2 1 sien 2 ac28- 1377 
VIO Logic VS/Extended Architecture LY26-3900 
VIO Logic 





i 
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0 DMENTS 


ASE 1 IL 1985 


NEW DEVICE SUPPORT 


® Module descriptions for IGX00030, IGX00031, and IGX00032 
have been added. 


® Updates to support the IBM 4248 and 3263 Model 5 Printers 
have been made to the Printer Device Characteristics Table 
CIGGPDC) and the SETPRT Parameter List CIHASPP) under "Data 
Areas" on page 210, and the SETPRT Executor Return/Reason 
cose one Messages Table under "Diagnostic Aids" on 
page . 


NEW PROGRAM SUPPORT 


A description of the subsystem CICB has been added to "Data 
Areas" on page 210. | 


VERSION 2 PUBLICATIONS 


The Preface includes new order numbers for Version 2. 
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INTRODUCTION 


Sequential access methods (SAM) are programming techniques for 

transferring data arranged in sequential order between virtual 

storage and an input/output device. This manual describes five 
groups of sequential access method routines. They are: 


e Queued sequential access method (QSAM) routines 
e¢ Basic sequential access method (BSAM) routines 
e Basic partitioned access method (BPAM) routines 
e Sequential access method executors 

e Buffer-pool management routines 


A processing program using QSAM routines works with records. 

For input, QSAM routines turn the blocks of data of the channel 
programs into a stream of input records for the processing 
program; for output, QSAM routines collect the successive output 
records of the processing program into blocks of data to be 
written by channel programs. See Diagram F for information 
about the flow of control for QSAM routines. 


A processing program using BSAM routines works with blocks of 
data. For input, BSAM routines cause a channel program to read 
a block of data for the processing program; for output, BSAM 
routines cause a channel program to write a block of data for 
the processing program. BSAM routines are also used to read and 
write blocks of data for members of a partitioned data set. See 
Diagram G for flow of control information about BSAM routines. 


A processing program that uses BSAM or QSAM to access SYSIN or 
SYSOUT data sets invokes a special subset of SAM routines called 
SAM-SI (SAM Subsystem Interface). These routines operate as a 
compatibility interface to job entry subsystems, such as JES2, 
that control these data sets. See Diagram M in "Program 
Organization and Flow of Control" for information about the flow 
of control in SAM-SI routines for BSAM and QSAM. 


A processing program using BPAM routines also works with blocks 
of data. For output, BPAM routines construct and cause writing 

of entries in the directory; for input, BPAM routines search for 

and read entries from the directory. To read and write the 

blocks of the members, a processing program uses the BSAM 

i pol igh Flow of control for the BPAM routines is shown in 
iagram G. 


Sequential access method executors are modules that operate with 
the OPEN and CLOSE routines. When a data control block is 
opened, an executor constructs control blocks and loads the 
access method routines. The access method routines reside in 
the link pack area. 


When the end of a data set or volume is reached, an EOV SVC is 
issued to process the pending input/output blocks. The 
executors described are: 


e OPEN executors 
@ CLOSE executors 


Buffer-pool management routines form buffers in virtual storage 
and return virtual storage space (for buffers no longer needed) 
to available status. A buffer-pool management routine is 
entered when a GETPOOL, BUILD, GETBUF, FREEBUF, or FREEPOOL 
macro instruction is encountered in a program. 
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The GETPOOL and BUILD routines together form a pool of buffers 
in virtual storage. However, the GETPOOL routine also obtains 
the virtual storage space for the buffer pool. Virtual storage 
space must be provided by the processing program when the BUILD 
routine is us@d. 


The GETBUF and FREEBUF routines handle individual buffers. 
GETBUF obtains a buffer from a buffer pool and FREEBUF returns a 
buffer to a buffer pool. 


The FREEPOOL routine returns the virtual-storage space used for 
a buffer pool. 


Diagram A in "Program Organization and Flow of Control" lists 
the macro statements that are used with sequential access method 
programming techniques. The diagram also refers to figures in 
other portions of the manual that describe the SAM routines, 
appendages, and executors associated with each macro statement. 
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METHOD OF OPERATION 


QUEVED SEQUENTIAL ACCESS METHOD ROUTINES 


GET ROUTINES 


Queued sequential access method (QSAM) routines cause storage 
and retrieval of records and furnish buffering and blocking 
facilities. There are seven types of QSAM routines: 


e GET routines 
e PUT routines 
® End-of-block routines 


e Synchronizing and error-processing routines Cincluding the 
IBM 3211 and 3203 printer retry 
asynchronous-error-processing routines) 


e Appendage routines 
° Control routines 
® SVC Routines 


Diagram F, "QSAM Flow of Control," shows the relationship of 
QSAM routines to other portions of the operating system and to 
the processing progran. 


GET routines determine the address of the next input record by 
referring to the DCB. In update mode, the next output record is 
the last input record. 


If the American National Standard Code for Information 
Interchange CASCII) is used, the GET routine (if it is specified 
in the DCB) will accept a record with a block prefix. The G 
routines do not present the block prefix to the processing 
program; the block prefix is specified by the BUFOFF option in 
the DCB. For more information on block prefix and recard 
formats for ASCII, see Data Administration Guide. — | 


Besause there is an unused byte at the beginning of each segment 
descriptor word DN), the GET routines that process records in 

the ISO/ANSI/FIPS spanned record format must make record address 
adjustments. The unused byte results from the conversion of the. 
Sa cour enna segment control word (SCH) to the G-byte — 


The GET routine descriptions that follow are accordingly grouped 
as: 


e Simple-buffering GET routines 


° Update-mode GET routine 
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Simple-buffering GET routines use buffers whose beginning and 
ending addresses are in the data control block (DCB). The 
beginning address is in the DCBRECAD field Caddress of the next 
record); the ending address is in the DCBEOBAD field (address of 
the end of the buffer). In each pass through a routine, it 
determines: 


e The address of the next record 


e Whether an input buffer is empty and ready to be scheduled 
for refilling 


e Whether a new full input buffer is needed 


If the records are unblocked, the address of the next record is 
always that of the next buffer. 


If the records are blocked, a GET routine determines the address 
of the next record by adding the length of the last record to 
the address of the last record. The address of the last record 
is in the DCBRECAD field of the data control block (DCB). If 
the records are fixed-length blocked records, the length of each 
record is in the DCBLRECL field. If the records are 
variable-length blocked records, the length of each record is in 
the length field of the record itself. 


A GET routine determines whether a buffer is empty and ready for 
refilling and whether a new full buffer is needed by testing for 
an end-of~-block CEOB) condition. 


When a buffer is empty, a GET routine passes control to an 
end-of-block routine to refill the buffer. The buffers are 
filled for the first time by OPEN executor IGG01911 for tape and 
unit record devices, and by IGG0193B for direct-access storage 
devices. Thus, the buffers are primed for the first entry into 
a GET routine. 


When a new full buffer is needed, a GET routine obtains it by 
Passing control to the input-synchronizing and error-processing 
routine, module IGGO19AQ. The synchronizing routine updates the 
DCBIOBA field, thus pointing to the new buffer, and returns 
control to the GET routine. A GET routine updates the DCBRECAD 
field by inserting in it the starting address of the buffer from 
the channel program associated with the new IOB. To update the 
DCBEOBAD field, a GET routine adds the actual length of the 
block read to the buffer starting address. These two fields, 
DCBRECAD and DCBEOBAD, define the available buffer. 


For unblocked records, an EOB condition exists after every entry 
into the GET routine. For blocked records, an EOB condition 
exists when the values in the DCBRECAD and DCBEOBAD fields are 
equal. For ISO/ANSI/FIPS fixed block format, an EOB condition 
exists when the next logical record of a block consists of all 
X*5F*'s. In the move operating mode, the buffer can be scheduled 
for refilling as soon as the last record is moved out; thus, an 
EOB test is made after moving each record, so that the buffer 
can be scheduled for refilling as soon as possible. Another EOB 
test is made on the next entry to the routine to determine 
whether a new full buffer is needed. In the locate mode, the 
empty buffer is scheduled when the routine is entered, if the 
last record was presented in the preceding entry; thus, an EOB 
test is made on entry into the routine to determine whether a 
buffer is empty and ready for refilling and also whether a new 
full buffer is needed. 


When the processing program determines that the balance of the 
present buffer is to be ignored and the first record of the next 
buffer is wanted, the processing program issues a RELSE macro 
instruction. Control passes to a RELSE routine that sets an EOB 
condition. When records are spanned, one or more blocks can be 
skipped to find the first record in a new block. 
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If QSAM is used with a DCB opened for input, update, or 
readback, the OPEN executor primes (that is, schedules for 
filling) the buffers. For the locate mode, all buffers except 
one are primed; for the move mode, all buffers are primed. The 
OPEN executor also sets an end-of-block condition; the first 
time that a GET routine gains control, it processes this 
condition in the usual way. 


Upon return from the synchronizing and error~-processing routine, 
the GET routines, which may be loaded for tape data sets, test 
to determine if the buffer contains a DOS checkpoint record. If 
a DOS checkpoint record is indicated, ECB posted X'50°, the GET 
routine branches to the end-of-block routine to reschedule the 
buffer for refilling and then branches back to the synchronizing 
routine to test the next buffer. 


Figure 1 on page 6 lists the simple-buffering GET routines and 
the conditions that cause a particular routine to be used. The 
OPEN executor selects one of the routines, loads it, and puts 
its address into the DCBGET field. Figure 1 shows, for example, 
that when the OPEN parameter list specifies input and the DCB 
specifies the GET macro instruction, simple buffering, the 
locate mode, and the fixed-length record format, routine 
IGGO1IAA is selected and loaded. 
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Access Method 
Options 
INPUT, GET 
RDBACK, GET 


Selec- 
tions 


Locate mode 


< 
< 
~< 


Move mode 


Data mode 


Fixed-length 
record format 


Undefined- 
length record 
format 


Variable-length 
or record 
format~D 


Spanned records 


% or DATA on DD 
statement 


Card reader, 
only a single, 
buffer CNTRL 


Logical record 
interface 


GET Modules 
IGGO19AA 
IGGO19AB 


AA AA 


IGGO19AD 
IGG019AG 
IGGO19AM 


IGGO19B0 
IGGO19DJ 
IGGO19FB 


Ge 


Figure 1. Module Selection-—Simple-Buffering GET Modules 
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GET 


Module IGGO19AA: Module IGGO19AA presents the processing 


program with the address of the next fixed-length or 
undefined-length record. The OPEN executor selects and loads 
this module if the OPEN parameter list specifies: 


and 


The 
The 


The 


Input 

the DCB specifies: 
GET 

Simple buffering 
Locate operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


module consists of a GET routine and a RELSE routine. 
GET routine operates as follows: 


It receives control when a GET macro instruction is 
encountered in a processing program. 


It tests for an EOB condition to determine whether a buffer 
is empty and ready for refilling and if a new buffer is 
needed. then the OPEN executor primes the buffers, it 
schedules all buffers except one and sets an EOB condition. 
For ISO/ANSI/FIPS, an EOB condition exists when the next 
logical record in a block consists of all padding characters 
CX*5F's). The first logical record in a block must not 
consist of all padding characters. 


If no EUB condition exists, the GET routine determines the 
address of the next record, and then presents the address to 
the processing program and returns control to the processing 
program. 


If an EOB condition exists, the GET routine issues a BALR 
instruction to pass the present buffer to the end-of-block 
routine to be scheduled for refilling. The GET routine 
issues another BALR instruction to obtain a new full buffer 
through the input-synchronizing and error-processing 
routine, module IGGO19AQ. The GET routine then presents the 
address of the first record of the new buffer to the 
processing program and returns control to the processing 
program. 


RELSE routine causes an EOB condition by setting the 


DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 


GET 


Module IGGO19AB: Module IGGO19AB presents the processing 


program with the address of the next variable-length or format-D 
record. The OPEN executor selects and loads this module if the 
OPEN parameter list specifies: 


and 


Input 

the DCB specifies: 
GET 

Simple buffering 
Locate operating mode 


Variable-length or record format-D Cunblocked or blocked), 
unspanned 


The module consists of a GET routine and a RELSE routine. 
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The GET routine operates as follows: 


The 


It receives control when a GET macro instruction is 
encountered in a processing program. 


It determines the address of the next record and tests for 
an EQB condition to determine whether a buffer is empty and 
ready for refilling and if a new buffer is needed. When the 
OPEN executor primes the buffers, it schedules all buffers 
except one and sets an EOB condition. For ISO/ANSI/FIPS, an 
EOB condition exists when the next logical record ina block 
consists of all padding characters (X*5F's). The first 
logical record ina block must not consist of padding 
characters. , 


If no EOB condition exists, it presents the address of the 
next record to the processing program and returns control to 
the processing program. 


If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the end-of-block routine to be 
scheduled for refilling. The GET routine issues another 
BALR instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ. The GET routine then presents the address of the 
first record of the new buffer to the processing program and 
returns control to the processing program. 


RELSE routine causes an EOB condition by setting the 


DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 


GET Module IGGO19AC: Module IGGO19AC moves the next 
fixed-length or undefined-length record to the work area. The 
OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input 


and the DCB specifies: 


The 
The 
The 


GET 
Simple buffering 
Move operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


DCB does not, however, specify the CNIRL macro instruction. 
module consists of a GET routine and a RELSE routine. 
GET routine operates as follows: 


It receives control when a GET macro instruction is 
encountered in a processing program. 


It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, it sets this EOB condition for the first GET macro 
instruction. 


If no EQB condition exists, the routine moves the next 
record to the work area. 


If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and moves the first record of the new buffer to 
the work area. 
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¢ It tests for a new EOB condition to determine whether a 
buffer is empty and ready for refilling. For unblocked 
ised diag this condition exists at every entry into the 
routine. 


° If no new EOB condition exists, the routine returns control 
to the processing program. 


e If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the end-of-block 
routine to be scheduled for refilling and returns control to 
the processing program. 


The RELSE routine sets a bit in the DCB so that the GET routine 
passes the buffer for refilling and obtains a new full buffer 
the next time the routine is entered. 


GET Module IGGO19AD: Module IGGO19AD moves the next 
variable-length or format-D record to the work area. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Move operating mode 


Variable-length or record format-D Cunblocked or blocked), 
unspanned 


The DCB does not, however, specify the CNTRL macro instruction. 
The module consists of a GET and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


e It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, it also sets an end-of-block condition for the 
first GET macro instruction. 


e If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and moves the first record to the work area. 


e If no EOB condition exists, the routine moves the next 
record to the work area. 


6 It tests for a new EOB condition to determine whether a 
buffer is empty and ready for refilling. For unblocked 
Sopra the condition exists after every entry to this 
routine. 


e If no new EOB condition exists, the routine returns control 
to the processing program. 


e If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the end-of-block 
routine to be scheduled for refilling and returns control to 
the processing program. 


The RELSE routine sets a bit in the DCB so that the GET routine 


passes the buffer for refilling and obtains a new full buffer 
the next time the routine is entered. 
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GET Module IGGO19AG (CNTRL“~—"Card Reader): Module IGGO19AG moves 
the next fixed-length or undefined-length record to the work 
area without scheduling the buffer for refilling. To refill the 
buffer, the processing program issues a CNTRL macro instruction. 
The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 

Input 
and the DCB specifies: 

GET 

Simple buffering 

Move operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


CNTRL Ccard reader) 
The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


@ It receives control when a GET macro instruction is 
encountered in a processing program. 


e If an EOB condition exists, it resets the DCBRECAD and 
DCBEOBAD fields for the new buffer, issues a BALR to the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and then tests for blocked records. 


® If no EOB condition exists, it tests immediately for blocked 
records. 


e For blocked records, it updates the DCBRECAD field, moves 
the present record to the work area, and returns control to 
the processing program. 


6 For unblocked records, it sets the DCBRECAD and DCBEOBAD 
fields so that they are equal, moves the present record to 
the work area, and returns control to the processing 
program. 


The RELSE routine sets the value of the DCBEQBAD field equal to 
that of the DCBRECAD field to establish an EOB condition. 
Control then returns to the processing program. 


GET Module IGGO19AM (RDBACK): Module IGGO19AM presents the 
processing program with the address of the next record when the 
data set is opened for backward reading. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 

RDBACK 
and the DCB specifies: 

GET 

Simple buffering 

Locate operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a GET routine and a RELSE routine. 
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The GET routine operates as follows: 


® It receives control when a GET macro instruction is 
encountered in a processing program. 


® It tests for an EOB condition. 


e If no EOB condition exists, it determines the address of the 
next record by subtracting the DCBLRECL value from the 
DCBRECAD value. The routine presents the result to the 
processing program, and returns control to the processing 
program. 


e If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the end-of-block routine. The 
GET routine issues another BALR instruction to obtain a new 
buffer through the input-synchronizing and error-processing 
routine, module IGGO19AQ. The GET routine then presents the 
address of the last record of the new buffer to the 
processing program, and returns control to the processing 
program. For ISO/ANSI/FIPS, logical records consisting of 
all padding characters (X'5F's) are skipped. That is, when 
these records are encountered ina block, they are treated 
as padding and processing begins with the next logical 
record in backward sequence. 


The RELSE routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing progran. 


Figure 2 on page 13 illustrates the ordering of records using 
this module. When reading backward under QSAM, each block is 
read from the tape from the end of the block to the beginning, 
each buffer is filled from the end of the buffer to the 
beginning, and the records are presented to the processing 
program in order of the record in the last segment of the buffer 
first, and the record in the first one last. In this manner of 
reading, buffering, and presenting, each record follows in 
backward sequence, from the record presented last out of one 
buffer to the record presented first out of the next buffer. 


GET Module IGGO19AN (RDBACK): Module IGGO19AN moves the next 
record to the work area when the data set is opened for backward 
reading. The OPEN executor selects and loads this module if the 
OPEN parameter list specifies: 

RDBACK 
and the DCB specifies: 

GET 

Simple buffering 

Move operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


® It tests for an EOB condition. 
® If no EOB condition exists, it moves the next record to the 


work area, and updates the DCBRECAD field by reducing it by 
the value of the DCBLRECL field. 
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If an EOB condition exists, it issues a BALR instruction to 
obtain a new buffer through the input-synchronizing and 
error-processing routine, module IGGO19AQ. The GET routine 
then moves the last record of the new buffer to the work 
area. 


It tests for a new EOB condition. 


If no new EOB condition exists, it returns control to the 
processing program. 


If a new EOB condition exists, it issues a BALR instruction 
to pass the present buffer to the end-of-block routine and 
then returns control to the processing program. 


For ISO/ANSI/FIPS, logical records consisting of all padding 
characters (X'5F's) are skipped. That is, when these 
records are encountered in a block they are treated as 
padding, and processing begins with the next logical record 
in backward sequence. 


The RELSE routine issues a BALR instruction to pass the present 
buffer to the end-of-block routine and then returns control to 
the processing program. 


Figure 2 illustrates the ordering of records using modules 
IGGO1L9AM and IGGO1IAN. 
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beled] dotstet pete yi 


“4 Direction of Tape Direction of Tape” 
When Reading Backward When Writing 





Last GET for this block 
addresses this segment 


First channel program 
fills this buffer 
“@-— beginning here 


Next channel program 
fills this buffer 
“4— beginning here 


First GET for this block 
addresses this segment 





Last GET for this block 
addresses this segment 


First GET for this block 
addresses this segment 


Last GET for this block 
addresses this segment 


LeTeT-IleTe lJ 


Next channel program 
fills this buffer 


First GET for this block “t-— beginning here 


addresses this segment 





Figure 2. Order of Records Using GET Routines for Data Sets 
Opened for RDBACK CIGGO19AM, IGGO1L9SAN) 





GET Module IGGO19BO: Module IGG019B0O presents the processing 
program with the address of the next variable-length record. 
The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 

Input 
and the DCB specifies: 

GET 

Simple buffering 

Locate operating mode 

Variable-length spanned Cunblocked or blocked) record format 

Logical record interface 


The module consists of a GET routine and a RELSE routine. 
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The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in the processing program. 


e It determines the address of the next record and tests for 
an EOB condition to determine whether a buffer is empty and 
ready for refilling and if new buffer is needed. When the 
OPEN executor primes the buffers, it schedules all buffers 
except one and sets an EOB condition. If ISO/ANSI/FIPS 
spanned records are being processed, the record address is 
adjusted in order to ignore the unused byte that results 
from the conversion of the 5-byte ISO/ANSI/FIPS segment 
eli word (CSCW) to the 4-byte IBM segment descriptor word 


@ If no EGB condition exists, it tests whether the next record 
segment contains a complete record. 


e If it is a complete record, the routine presents the address 
of the next record to the processing program and returns 
control to the processing program. If the extended version 
of logical record interface (XLRI) is being used, the three 
low-order bytes of the first four bytes of a logical record 
are used to indicate the length of the record including the 
first four bytes. 


e If it is the first segment of a spanned record, the routine 
moves the segment to the record area with the proper 
alignment, sets the EOB condition, and determines the 
Seen of the next record and whether a buffer is ready for 
refilling. 


e If it is a segment that follows another segment of a spanned 
record, the routine moves the segment (without the segment 
descriptor word) next to the previous segment in the record 
area, and updates the count in the record area. This step 
continues until the entire logical record has been assembled 
in the record area. If an EOB condition occurs during this 
process, the routine determines the address of the next 
record and whether a buffer is ready for refilling. When 
the entire logical record is assembled, the routine sets the 
spanned record flag in the IOB, presents the address of the 
assembled record, and returns control to the processing 
program. 


@ If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the EOB routine to be scheduled 
for refilling. The GET routine issues another BALR 
instruction to obtain a new buffer through the 
input~-synchronizing and error-processing routine (module 
IGGO19AO0). The routine then obtains and interrogates the 
first record segment of the new buffer. If it is a complete 
record, the routine presents the address of the next record 
to the processing program and returns control to the 
processing program. 


The RELSE routine operates as follows: 


e It receives control when a RELSE macro instruction is 
encountered in the processing program. 


e It sets an EOB condition. 
e It sets a release bit in the DCBRECAD of the DCB. 
e It returns control to the processing program. 


The RELSE routine sets a release bit in the DCB so that the GET 
routine passes the buffer for refilling and obtains a new full 
buffer the next time the routine is entered. After obtaining 
the new buffer as a result of RELSE, the GET routine 
interrogates the SDW of the first segment to determine if it is 
the first segment of a record (bit 6 in third byte of SDW must 
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be 0); if not, the routine skips to the next SDN and checks it. 
This continues until an acceptable segment is found. The 
routine then processes the GET request in the usual way. The 
epoca may result in one or more additional blocks being 
passed. 


GET Module IGGO19DJ (SYSIN/SYSOUT): Module IGG0O19DJ interfaces 
with a job entry subsystem to provide the next record from the 
system input stream to the processing program. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input (X% or DATA specified on the DD statement) 
and the DCB specifies: 

GET 

Simple buffering 

Locate or move operating mode 

Fixed, undefined, or variable-length record format 


The module consists of a GET routine and a RELSE routine. See 
Diagram M for an overview of the SAM~-SI processing for QSAM. 


This module also contains a PUT routine as described in "Simple 
Buffering PUT Routines" (see Figure 4 on page 26). The GET 
routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in the processing program. 


@ It determines the type of get request and initializes the 
input area address in the request parameter list CRPL). For 
move mode, RPLAREA contains the address of the processing 
program work area (the contents of register 0 on entry); for 
locate mode, RPLAREA contains the address of a buffer from 
the DCB buffer pool. 


e If the GET request is for variable-length records, RPLAREA 
is adjusted to allow space for a record descriptor word 
CRDW) in the first four bytes of the work area. 


® It passes control to the job entry subsystem (JES) for data 
transfer by issuing a GET macro instruction against the RPL. 
ape Pa code in register 15 is tested upon return from 
e ? 


@ For an exceptional condition, RPLRTNCD and RPLERRCD are 
examined to determine the type of failure. 


® If end-of-data is detected, the appropriate registers are 
loaded and saved, then an unconditional branch is taken to 
the synchronizing module, IGGO19AQ (see Figure 11 on 
page 60), for EQDAD and concatenation processing. 


e If an error condition is detected, control is passed to the 
error-processing module, IGGO19AH (see Figure 12 on 
page 67). If control is returned to this routine and DCB 
EROPT is SKIP, the GET request is reissued. Otherwise, 
control is returned to the processing program. 


e For normal completion, it places the record address from the 
RPLAREA field into register 1. If the SAM request was for a 
variable-length record, the record descriptor word field is 
created, by using the value returned in the RPLRLEN field. 
Registers are restored and control is returned to the 
processing program. 
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The RELSE routine receives control when a RELSE macro 
instruction is issued. Module IGGOI19DJ does no processing for 
this macro instruction. Control is returned to the processing 
program by IGGO19DJ. 


GET Module IGGO19FB: Module IGGO19FB presents the processing 
program with the address of the next variable-length record. 
The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Locate operating mode 


Variable-length format Cunblocked or blocked) record, 
spanned 


The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when the processing program issues a GET 
macro instruction. 


e It determines the address of the next record segment and 
tests for an EOB condition to determine whether a buffer is 
ready for refilling and also whether a new buffer is needed. 
When the OPEN executor primes the buffers, the executor 
schedules all buffers except one and sets an EOB condition. 


® If no EOB condition exists, the routine presents the address 
of the next record segment to the processing progran. 


e If an EOB condition exists or if a DOS-type null segment 
(where the high-order bit of the record descriptor word is 
on) is encountered, the routine issues a BALR instruction to 
pass the current buffer to the EOB routine. The EOB routine 
schedules the buffer for refilling. The GET routine issues 
another BALR instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ. The GET routine then determines if the EOB 
routine was entered because of a RELSE macro instruction. 

If so, the GET routine checks the first record segment to 
determine if it is a member of a previous logical record. 
If it is, the GET routine continues to look for a record 
segment.that is not a member of a previous record. Such a 
segment is considered the first record of the new buffer. 
(Note, however, that this could cause reentry into the EOB 
routine and result in one or more entire blocks being 
skipped.) The GET routine then presents the address of the 
first record segment of the new buffer to the processing 
program and returns control to the processing program. 


The RELSE routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal. It then 
sets the high-order 4 bits of DCBRECAD to l's and returns 
control to the processing program. 
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GET 


Module IGGO1I9FD: Module IGGO19FD moves the next 


variable-length record to the work area. The OPEN executor 
mie hi and loads this module if the OPEN parameter list 
specifies: 


and 


The 
The 
The 


Input | 

the DCB specifies: 
GET 

Simple buffering. 
Move operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


DCB does not, however, specify the CNIRL macro instruction. 
module consists of a GET and a RELSE routine. 
GET routine operates as follows: 


It receives control when the processing program issues a GET 
macro instruction. 


It tests for an EOB condition to determine whether a new 

full buffer is needed. When the OPEN executor primes the 
buffers, the executor also sets an E0OB condition for the 

first GET macro instruction. 


If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
eh ata and moves the first record segment to the user's 
work area. 


If no EOB condition gi eta: the routine moves the first 
record segment to the user's work area. 


If a DOS-type null segment (where the high-order bit of the 
record descriptor word is on) is encountered, that buffer is 
rescheduled by passing control to the EOB routine. 
Processing continues as if an EQB condition exists as 
described above. 


If more record segments are required, the routine moves 
them, without the segment descriptor words, to the part of 
the user's work area that is contiguous with the previous 
record segment. The routine also updates the DCBLRECL field 
and the logical-record-length field in the record descriptor 
word (RDN) in the user's work area. These fields then 
reflect the total logical-record length after additional 
record segments have been moved. This procedure continues 
until the routine has moved the entire logical record. An 
EOB condition can occur during this procedure. 


When ISO/ANSI/FIPS spanned records are being processed, the 
address of the starting byte must be adjusted in order to 
ignore the unused byte resulting from the conversion of the 
5-byte ISO/ANSI/FIPS segment control word (SCN) to the 
4-byte IBM segment descriptor word (SDW). 


The routine tests for a new EOB condition to determine 
whether a buffer is empty and ready for refilling. For 
unblocked records, the EOB condition exists after every 
entry to the GET routine. 


If no new EOB condition exists, the routine returns control 
to the processing program. 
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9 If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The EOB routine then schedules the buffer for refilling and 
returns control to the processing program. 


The RELSE routine sets the high-order 4 bits in the DCBRECAD 
field to l*s so that the GET routine passes the buffer for 
refilling and so that the next time the GET routine is entered, 
it obtains a new full buffer. After obtaining the new buffer, 
the GET routine interrogates the segment descriptor word (SDN) 
of the first record segment. The routine thus determines if the 
segment is the first segment of a record. If it is, bit 6 of 
the third byte of the SDN will be 0. If not, the GET routine 
skips to the next SDW and checks it. This procedure continues 
until an acceptable segment is found. Then the GET routine 
processes the GET macro instruction in the usual way. The 
cea? can result in one or more additional blocks being 
passed. 


GET Module IGGO19FF: Module IGGOI19FF moves the data portion of 
the next variable-length record to the work area. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Data operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


The DCB does not, however, specify the CNITRL macro instruction. 
The module consists of GET and RELSE routines. 
The GET routine operates as follows: 


® It receives control when the processing program issues a GET 
macro instruction. 


e It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, the executor also sets an EOB condition for the 
first GET macro instruction. 


® If an EQB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO019AQ, and moves the data portion of the first record 
segment to the work area. 


° If no EOB condition exists, the routine moves the data 
portion of the first record segment to the user's work area. 


e If more segments are required, the routine moves them, 
without the segment descriptor word, to the part of the 
user's work area that is contiguous with the previous record 
segment. The routine also updates the DCBLRECL field to 
reflect the current total logical record length. This 
procedure continues until the routine has moved the entire 
logical record. An EOB condition can occur during this 
procedure. 


e When ISO/ANSI/FIPS spanned records are being processed, the 
address of the starting byte must be adjusted one position 
in order to ignore the unused byte resulting from the 
conversion of the 5-byte ISO/ANSI/FIPS segment control word 
(SCN) to the 4-byte IBM segment descriptor word (CSDW). 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials —— Property of IBM 


° The routine tests for a new EOB condition to determine 
whether a buffer is ready for refilling. For unblocked 
Beta id the condition exists after every entry to this 
routine. 


6 If no new EOB condition exists, the routine returns control 
to the processing program. 


6 If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The EOB routine then schedules the buffer for refilling and 
returns control to the processing program. 


The RELSE routine sets the high-order 4 bits in the DCBRECAD 
field to ls so that the GET routine passes the buffer for 
refilling and so that the next time the GET routine is entered, 
it obtains a new full buffer. After obtaining the new buffer, 
the GET routine interrogates the segment descriptor word (SDW) 
of the first record segment. The routine thus determines if the 
segment is the first segment of a record. If it is, bit 6 of 
the third byte of the SDN will be 0. If not, the GET routine 
skips to the next SDN and checks it. This procedure continues 
until an acceptable segment is found. Then the GET routine 
processes the GET macro instruction in the usual manner. The 
peer can result in one or more additional blocks being 
passed. 


Parallel Input Processing Routine 


The QSAM parallel input processing routine provides to the user 
an input record from a queue of equal priority, sequential data 
sets. The routine supports input processing; simple buffering; 
locate or move mode; and fixed-length, variable-length, or 
undefined~length records. Track overflow and spanned records 
are not supported. 


Parallel Input Processing Module IGGO19JD: Module IGGO19JD uses 
the parallel data address block (PDAB) to maintain a list o 

data control blocks, addresses, and a corresponding wait 
parameter list of ECB addresses. DCB addresses are added to the 
PDAB by the OPEN routines and are removed by the CLOSE routines. 
A count of the maximum number of DCB entries allowable is 
assembled in the PDA 


The address of the DCB entry from which the previous record was 
provided is obtained from the PDAB, and each succeeding DCB 
entry is processed until an available logical record is found, 
or until each data set is found to have reached an EOB 
condition, and the next block of data is not available. 


An EOB condition is detected when DCBEQBAD is greater than or 
equal to DCBREGAD for the move mode, when DCBEOBAD is greater 
than or equal to DCBECAD plus DCBLRECL for the locate mode, or 
when the first 4 bits of the DCBIOBA are set to ones for the 
RELSE function. 


The next block is not available when the ECB for the next IOB is 
not posted as complete. The location of the next IOB is 
obtained from the current IOB - 8, and the location of its 
corresponding ECB is obtained from IOB + 4. 


When the ECB is not posted as complete, its address is stored in 
the wait parameter list in the PDAB. When no record is 
available from the queue of data sets, a WAIT is issued for the 
list of ECB addresses in the PDAB. When control is returned, 
the completed event is located from the list of ECB addresses. 


When a record is available, the DCB address and the user's data 
area address are passed to the DCB get routine. 
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Update Node GET Routine 


The update mode GET routine differs from other GET routines in 
that it shares its buffers, as well as the DCB and the IOBs, 
with the update mode PUT routine. The QSAM update mode of 
access uses simple buffering in which the buffer is defined by 
the start and end addresses of the buffer. 


If a PUTX macro instruction addresses a record in a block, the 
update mode GET routine determines, when the end of the block is 
reached, that that buffer is to be emptied (that is, that the 
block is to be updated) before being filled with a new block of 
data. If no PUTX macro instruction addresses a record in a 
block, the update mode GET routine determines, when the end of 
the block is reached, that the buffer is to be refilled only; 
that is, that the last block need not be updated and the buffer 
can be filled with a new block of data. These characteristics 
of the buffer——simple buffering, sharing the buffer with the PUT 
routine, and emptying the buffer before refilling~influence the 
manner in which the update mode GET routine determines: 


e The address of the next record 
e Whether the buffer can be scheduled 
e Whether a new buffer is needed 


° Whether to schedule the buffer for empty-and-refill or for 
refill-only 


The first three of these determinations are made at every pass 
through the routine. The last determination is made after the 
routine establishes that the buffer can be scheduled. 


If the records are unblocked, the address of the next record is 
the address of the next buffer. 


If the records are blocked, the address of the next record is 
found by adding the record length, found in the DCBLRECL field, 
to the value in the DCBRECAD field. 


Whether the buffer can be scheduled and whether a new buffer is 
needed are determined by whether an end-of-block condition 
exists. In the update mode, one determination that an 
end-of-block condition exists causes both the last buffer to be 
scheduled and a new buffer to be sought. An end-of-block 
condition exists for unblocked records at every pass through the 
routine; for blocked records it exists if the values in the 
DCBRECAD (the address of the current record) and the DCBEOBAD 
(the address of the end of the block) fields are equal. To 
cause scheduling of the buffer, the GET routine passes control 
to the end-of~block routine. To obtain a new buffer, the GET 
routine passes control to the update-synchronizing and 
error-processing routine, module IGGO19AF. 


To cause scheduling of the buffer for either empty-and-refill or 
refill-only, the update mode Get routine sets the IOBNFLG1 flag 
to indicate whether an update (that is, write and refill) ora 
read (that is, a refill) is to take place. The “empty and 
refill™ operation writes out of the buffer and reads into that 
same buffer. When the end-of-block routine schedules the IOB 
for the buffer to be processed by the SI0/pagefix appendage, 
that appendage inspects the IOB flags. The SI0O/pagefix 
appendage builds an appropriate channel program, based on the 
IOB flags: an update write of the buffer followed by a read into 
the same buffer, or a read into the buffer. 


Whether to schedule the buffer for empty-and-refill or for 
refill-only depends on whether the block is to be updated. If 
the block is to be updated, the PUTX routine will have set the 
update flag on in the IQB; otherwise, the flag is off. To 
schedule the buffer for empty-and-refill, the GET routine leaves 
the update flag on. To schedule the buffer for refill only, the 
GET routine sets the read flag on. The end-of-block condition 
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that triggers this processing also causes control to pass to the 
end-of-block routine, module IGGO1OTV, for issuing the EXCPVR 
macro instruction and to the update-synchronizing— 

ane ct oe erocesssne routine, module IGGOI19AF, for obtaining the 
nex uffer. 


The PUTX routine sets the update flag in the IOB and returns 
control to the processing program. The RELSE routine sets an 
end-of-block condition and returns control to the processing 
program. 


The OPEN executor primes (that is, schedules for filling) all 
the buffers except one if QSAM is used with a DCB opened for 
update. The OPEN executor also sets an end-of-block condition; 
the first time the update mode GET routine gains control, it 
processes this condition in its normal manner. 


Figure 3 on page 21 shows the update mode GET routines and the 
access conditions that must be specified in the DCB to select a 
particular routine. The OPEN executor loads the selected 
routine and places its address into the DCBGET field of the DCB. 


Access Method Options Selections 

Update, GET X X X X X X X 
Fixed-length record format X X 

Variable-length record format xX X X X 
Undefined-length record format X 

Blocked record format X X X 
Unblocked record format X X X X 


Locate operating mode 

Logical record interface 

GET Modules 

IGG019AE2 AE AE AE AE AE 

IGGO1OBN BN BN 


Figure 3. Module Selector——Update-Mode GET Modules 


Note to Figure 3: 
i This module also carries the Update-Mode PUTX routine 
GET Update Module IGGOI9AE: Module IGGO19AE presents the 
processing program with the next input record and flags the IOB 
if the block is to be updated. The OPEN executor selects and 
loads this module if the OPEN parameter list specifies: 

UPDATE 
and the DCB specifies: 

GET 


The module consists of a GET routine, a RELSE routine, and a 
PUTX routine. 
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The GET routine operates as follows: 


The 


It receives control when a GET macro instruction is 
encountered in a processing program. 


It tests for an end-of-block condition to determine whether 
the buffer can be scheduled and if a new buffer is needed. 
When the OPEN executor primes the buffers, it schedules all 
buffers except one and sets an end-of-block condition. 


If no end-of-block condition exists, it presents the address 
of the next record, and returns control to the processing 
program. For variable-length, format-D, and 
undefined-length records, it also determines the length of 
the record and places it in the DCBLRECL field in the DCB. 


If an end-of-block condition exists and if the buffer is to 
be emptied and refilled, and: 


= If entry is not from CLOSE or FEOV, the GET routine 
passes control to the end-of-block routine to cause 
scheduling of the buffer. 


- If entry is from CLOSE or FEOV, the GET routine sets the 
IOB to indicate "write-only.™ The GET routine then 
passes control to the end-of-block routine to cause 
scheduling of the buffer. 


On return of control from the end-of-block routine, the GET 
routine passes control to the update-synchronizing and 
error-processing routine, module IGGOI1L9OAF, to obtain a new 
full buffer. 

On return of control from the synchronizing routine, the GET 
routine updates the DCBLRECL field, presents the address of 
the next record, and returns control to the processing 
program. 

RELSE routine operates as follows: 


It receives control when a RELSE macro instruction is 
encountered in the processing program. 


It sets an end-of-block condition. 
It returns control to the processing program. 
PUTX routine operates as follows: 


It receives control when a PUTX macro instruction is 
encountered in the processing program. 


It sets the update flag in the IOB to show that the buffer 
is to be emptied before being refilled. 


It returns control to the processing program. 


GET Update Module IGGO19BN: Module IGGO1OBN presents the 
processing program with the next input record, flags the IOB if 


the 


block or a spanned record is to be updated (that is, emptied 


and refilled), and sets the IOB to address a QSAM update channel 
program for either empty-and-refill or refill-only. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: | 


Update 


and the DCB specifies: 
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GET 
Locate operating mode 


Variable-length spanned (blocked or unblocked) record format 
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Logical record interface 


The module consists of a GET routine, a RELSE routine, and a PUT 
routine. 


The GET routine operates as follows: 


It receives control when a GET macro instruction is 
encountered in a processing program. 


It tests whether EOV has occurred while processing a spanned 
record. 


If EOV has occurred and the record is not to be updated, it 
sets a bit in the DCBIOBAD field of the DCB to indicate that 
the old DEB, whose address was saved by the EQV routine, can 
be freed. It then issues an FEOV macro instruction to free 
the virtual storage assigned to this DEB 


If EOV has occurred and the record is to be updated, it 
restores the address to read back the block that contains 
the beginning segment of the record. The current IOB is 
modified to function as if only one IOQB exists. It then 
issues an FEOV macro instruction to cause the previous 


‘volume to be mounted and the data management count to be 


reset. 


On return of control from the FEOV routines, it operates as 
if no EOV has occurred. 


If EQV has not occurred, it continues on to the next step. 
It tests whether a spanned record is to be updated. 


If it is not to be updated, it obtains the length of the 
previous record segment from the DCBLRECL field in the DCB, 
or the SDW if it was a spanned record. 


It determines the address of the next record segment and 
tests for an EOB condition to determine whether the buffer 
can be scheduled and if a new buffer is needed. (When the 
OPEN executor primes the buffers, it schedules all buffers 
except one and sets an EOB condition. ) 


If no EQB condition exists, it tests the next record segment 
for a complete record. 


If it is a complete record, the routine presents the address 
of the next record, determines the length of the record, 
Places it in the DCBLRECL field, and returns control to the 
processing program. 


If it is the first segment of a spanned record, the routine 
saves the track address of the block that contains this 
segment, the position of the segment in the block, and the 
alignment of the segment in the record area. The routine 
obtains the track address of the block by copying the 
IOBSEEK associated with the next IOB, the position of the 
segment by subtracting the buffer address from the current 
record address, and the alignment of the segment by using 
the low-order byte of the current record address. The 
routine then moves the first segment to the record area and 
sets the EOQB condition. It determines the address of the 
next record, whether a new buffer can be scheduled, and if a 
new buffer is needed. 


If it is a segment that follows another segment of a spanned 
record, the routine combines the segment (without the SDW) 
contiguous with the previous segment in the record area. 

The count in the record descriptor word (RDW) in the record 
area is updated to include the total count. This process 
continues until the entire logical record has been 
assembled. An EOB condition may occur during this process, 
in which case the routine determines the address of the next 
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record, whether a new buffer can be scheduled, and if a new 
buffer is needed. When the entire logical record has been 
assembled, the routine sets the spanned-record flag in the 
IOB, presents the address of the assembled record in the 
record area, places the length of the record (which is 
obtained from the RDW in the record area) in the DCBLRECL 
field, and returns control to the processing program. 


e If an EOB condition exists, control is passed to the 
end-of-block routine to schedule a buffer. 


e On return of control from the EOB routine, the routine 
passes control to the update-synchronizing and 
error~-processing routine, module IGG019BQ, to obtain a new 
full buffer. 


e On return of control from the synchronizing routine, the 
routine interrogates the next record segment and saves the 
track address of the block that contains the record, the 
position of the segment in the block, and the alignment of 
the segment in the record area. The routine then moves the 
first segment to the record area and sets the EOB condition. 


°e .If a spanned record is to be updated, the routine restores 
the track address to read back the block that contains the 
beginning segment of the record. The current IOB is 
modified to function as if only one IOB exists. 


The routine next tests to determine if any previous I/0 
operation has completed. If no previous [/0 operation has 
completed, the routine issues WAIT against the ECB in the ICQE. 


The routine next tests to determine if the "EXCPVR needed™ flag 
is on and, if not, sets the "end of file™ and "EXCPVR needed” 
flags on. The routine turns off the "spanned record" flag in 
the I0B, sets the IOB to READ-ONLY and SEGMENT, and passes 
control to the end-of-block routine. 


@ On return of control from the EOB routine, the routine 
passes control to the update-~synchronizing and 
error-~processing routine, module IGG019BQ, to obtain a new 
full buffer. 


e On return of control from the synchronizing routine, the 
routine repositions the pointers to the beginning segment of 
the record and moves that portion of the record from the 
record area to the segment in the buffer. (CA count is kept 
of the number of bytes of data moved. ) 


e If more segments are to be updated, the routine moves that 
portion of the record from the record area to the succeeding 
segments in the buffer. (The total count of the data moved 
is updated with each move.) This process continues until 
the entire logical record has been segmented. If an EOB 
condition occurs during this process, the routine tests 
whether a spanned record is to be updated. When the entire 
logical record has been segmented, the routine turns off the 
segment flag in the IOB, restores the link field in the I0B, 
obtains the address of the next record segment, and 
ser eeuanes whether a new buffer can be scheduled and is 
needed. 


When the entire logical record has been segmented (except for 
the last segment in the current buffer, which has not been 
updated), the routine turns off the "segment" flag in the IOB, 
restores the link field in the IOB, and tests the "end of data®™ 
flag to determine whether the "EXCPVR needed" flag was off when 
I/Q was quiesced. If the "end of data™ flag is on, the routine 
sets the IOB's "write flag" and passes control to the 
end-of-block routine to cause an update write without a refill 
read for the buffer containing the last segment. When the 
end-of-block routine returns, the GET routine sets the IOB flags 
to indicate “updating not required." The ICQE's "EXCPVR needed" 
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PUT ROUTINES 


flag is also zeroed. If the "end of data" flag is off, the 
WEXCPYR needed" flag is set on. 


The RELSE routine operates as follows: 


® It receives control when a RELSE macro instruction is 
encountered in the processing program. 


% It sets an EOB condition. 
® It sets a release bit in the DCBRECAD field of the DCB. 
® It returns control to the processing program. 


The RELSE routine sets a release bit in the DCB so that the GET 
routine passes the buffer for refilling and obtains a new full 
buffer the next time the routine is entered. After obtaining 
the new buffer as a result of RELSE, the GET routine 
interrogates the SDW of the first segment to determine if it is 
the first segment of a record (bit 6 in the third byte of the 
SDW must be 0); if not, the routine skips to the next SDW and 
checks it. This continues until an acceptable segment is found. 
The routine then processes the GET in the usual way. This 
Beeceaee may result in one or more additional blocks being 
passed. 


The PUTX routine operates as follows: 


@ It receives control when a PUTX macro instruction is 
encountered in the processing program. 


e It sets the update flag in the IOB to show that the buffer 
is to be emptied before being refilled. 


e It returns control to the processing program. 


Note: When a RELSE macro instruction is issued after a spanned 
record is written with a PUTX macro instruction, this routine 
branches to the GET routine to write the last record (the 
spanned record) and then releases the block that contains the 
last segment of that spanned record. 


Some of the general characteristics of the PUT routines are 
described in Diagram B, "QSAM GET and PUT Routines." A specific 
PUT routine is selected for each data set on the basis of access 
method options specified by the processing program. The options 
examined are in the OPEN statement parameter list and the data 
set attributes described in the DCB. 


The OPEN executors (see Diagram D, "SAM OPEN Executors™) select 
aha load the modules that are required for a particular data 
se 


The access method options that determine which PUT modules are 
selected when Simple buffering is used are described in Figure 4 
on page 26. For update mode, the PUTX routine resides in the 
GET module for update mode. See Figure 3 on page 21 (under 
"Update Mode GET Routine") for information about the update mode 
PUTX routine. 


For information about the flow of control through the QSAM 
routines, see Diagram F, "QSAM Flow of Control." 
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Access Method Options Selections 


Output, PUT/PUT X X xX X XX X X xX X XX xX 
Locate operating mode 

Move operating mode X xX xX 

Data operating mode X X 
Fixed-length record format X | X 

Undefined-length record format X X 

Variable-length or record format-D X xX 

Spanned records Xx X XX X 
Logical record interface X 

SYSOUT specified on DD statement X 
PUT Modules 

IGGOL9AI AI AI 

IGGOL9OAJ AJ 

IGGO19AK AK AK 

IGGOLOAL AL 

IGGO19OBP BP - 

IGGO19DJ 3 DJ 
IGGO019FG | FG 

IGGO1IFJ FJ 
IGGO19FL FL 


Figure 4. Module Selector-~Simple-Buffering Put Modules 


Simple-Buffering PUT Routines 


Simple-buffering PUT routines use buffers whose ending address 
and the address of the next or current record are pointed to by 
the DCB. The address of the next record is in the DCBRECAD 
field Caddress of the next record); the ending address is in the 
DCBEOBAD field Caddress of the end of the buffer). In each pass 
through a routine, it determines: | 


° The address of the next buffer segment 
® Whether an output buffer is to be scheduled for emptying 
¢ Whether a new empty buffer is needed 


These three determinations are made at every pass through a PUT 
routine. 


If the records are unblocked, the address of the next available 
buffer segment is always that of the next buffer. 


If the records are blocked, a PUT routine determines the address 


of the next available buffer segment by adding the length of the 
last record to the address of the last buffer segment. The 
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address of the last buffer segment is in the DCBRECAD field of 
the data control block (DCB). If the records are fixed-length 
blocked records, the length of each record is in the DCBLRECL 
field. If the records are variable-length blocked records, the 
eee of each record is in the length field of the record 
itself. 


A PUT routine determines that a buffer is ready for emptying and 
a new empty buffer is needed by establishing that an 
end-of-block €CEOB) condition exists. 


If an output buffer is to be scheduled for emptying, a PUT 
routine passes control to an end-of-block routine, to cause the 
present buffer to be scheduled for output. 


If a new empty buffer is needed, a PUT routine obtains a new 
buffer by passing control to the 
output~-synchronizing-and-error-processing routine, module 
IGGO19AR. For a buffer that was emptied without error, the 
synchronizing routine updates the DCBIOBA field (thus pointing 
to the new buffer) and returns control to the PUT routine. The 
PUT routine updates the DCBRECAD field by inserting the starting 
address of the buffer from the channel program associated with 
the new IOB. To update the DCBEQBAD field, the routine adds the 
length of the block stated in the DCBBLKSI field to the buffer 
starting address. These two fields, DCBRECAD and DCBEOBAD, 
define the available buffer. | 


An EOB condition is established by different criteria for 
different record formats and operating modes. 


For unblocked records, an EQOB condition exists after each record 
is placed in the buffer. If the move operating mode is used, a 
PUT routine establishes that an EOB condition exists for the 
present buffer after the routine has moved the record into the 
buffer. If the locate operating mode is used, a PUT routine 
establishes that an EOB condition exists for the present buffer 
on the next entry to the routine, after the processing program 
has moved the record into the buffer. 


For blocked records, the time that an EOB condition occurs 
depends on the record format. 


For fixed-length blocked records, an EQOB condition occurs when 
the DCBRECAD field equals the DCBEOBAD field. The DCBRECAD 
field shows the address of the segment for the next record. The 
DCBEOBAD field shows a value equal to one more than the address 
of the end of the buffer. If the move operating mode is used, 
the PUT routine moves the last fixed-length record into the 
buffer, updates the DCBRECAD field, and establishes that an EOB 
condition exists for the present buffer. If the locate 
operating mode is used, the processing program moves the last 
fixed-length record into the buffer. On the next entry to the 
PUT routine, the routine updates the DCBRECAD field and 
establishes that an EOB condition exists for the present buffer. 


For variable-length blocked records, unspanned, an EOB condition 
occurs when the length of the next record exceeds the buffer 
balance; that is, when the record length exceeds the space 
remaining in the buffer. If the user has specified move mode 
for unspanned records, the PUT routine establishes that an EOB 
condition exists when the record length stated in the first word 
of the record exceeds the buffer balance. If the user has 
specified locate mode for unspanned records, the PUT routine 
establishes that an EOB condition exists when the value stated 
in the DCBLRECL field exceeds the buffer balance. 


For variable-length blocked records, spanned, the next record is 
segmented. The first record segment is used to fill the buffer 
when 5 or more bytes remain in the buffer. When fewer than 5 
bytes remain in the buffer, an EOB condition occurs. 


For ISO/ANSI/FIPS variable-length spanned records, five bytes 
are used for the segment control word (SCW). An extra byte is 
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saved at the beginning of each segment. The succeeding four 
bytes are processed in the normal manner, but the ou ackuees 
routine uses the extra byte when it converts the IBM 4- 

segment descriptor word (SDN) to the 5-byte ISO/ANSI/FIPS 
segment control word (SCW). 


For variable-length spanned records using extended logical 
record interface (XLRI), the 3-byte length field is used to 
specifiy the exact length in bytes instead of the normal 2-byte 
length field. The DCB LRECL specifies the maximum logical 
record length in multiples of 1024. 


A TRUNC routine sets an end-of-block condition to empty the 
buffer. This end-of-block condition is processed so that the 
next entry to the PUT routine permits it to operate as usual. 
Successive entries to a TRUNC routine without intervening 
entries to a PUT routine cause the TRUNC routine to return 
control without performing any processing. 


To permit a PUT routine to operate normally when it is entered 
for the first time, the OPEN executor initializes the DCB fields 
DCBRECAD and DCBEOBAD. For an output data set using QSAM and 
Simple buffering, the values entered in these fields depend on 
the operating mode. For locate mode routines, it sets them to 
show the beginning and end of the first buffer; for move mode 
routines, it sets an end-of-block condition. 


Figure 4 on page 26 lists the PUT routines and the conditions 

that cause a particular routine to be read. The OPEN executor 
selects one of the routines, loads it, and places its address 

into the DCBPUT fields. 


PUT Module IGGO19AI: Module IGGOI9AI presents the processing 
program with the address of the next available buffer segment 
for a fixed-length or an undefined-length record. The OPE 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Output 

and the DCB specifies: 
PUT 
Simple buffering 
Locate operating mode 


Fixed-length Cunblocked, blocked or blocked standard) or 
undefined-length record format 


The module consists of a PUT routine and a TRUNC routine. 
The PUT routine operates as follows: 


e It receives control when a PUT macro instruction is 
encountered in a processing program. — 


® It determines the address of the next buffer segment using 
the value in the DCBLRECL field. 


® It tests for an EOB condition to determine whether a buffer 
is es and ready for emptying and if a new empty buffer is 
needed. 


® If no EOB condition exists, it presents the address of the 
next buffer segment to the processing program and returns 
control to the processing program. 


e If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the end-of-block routine. The 
Put routine issues another BALR instruction to obtain a new 
buffer through the output-synchronizing-~and-error-processing 
routine, module IGGO19AR, and determines the address of the 
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first segment of the new buffer. The PUT routine then 
presents this address and returns control to the processing 
program. 


The TRUNC routine causes an EOB condition by setting the 
DCBRECAD and DCBEODAD fields so that they are equal; it then 
returns control to the processing program. 


PUT Module IGGO19AJ: Module IGGO19AJ presents the processing 
program with the address of the next available buffer segment 
for a variable-length or format-D record. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 


Output 

and the DCB specifies: 
PUT 
Simple buffering 
Locate operating mode 


Variable-length or record format D Cunblocked or blocked), 
unspanned 


The module consists of a PUT routine and a TRUNC routine. 
The PUT routine operates as follows: 


€ It receives control when a PUT macro instruction is 
encountered ina processing program. 


6 It determines the address of the next buffer segment using 
the length field of the record moved by the processing 
program into the buffer segment located last. 


e It tests for an EOB condition to determine whether a buffer 
is ready for emptying and if a new empty buffer is needed, 
by using the value placed into the DCBLRECL field by the 
processing program. 


6 If no EOB condition exists, it tests for blocked records. 


e If blocked records are specified, it presents the address of 
the next buffer segment to the processing program and 
returns control to the processing program. 


e If an EOB condition exists or if unblocked records are 
specified, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine. The PUT routine issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing~and-error-~processing routine, module 
IGGOLOAR, and determines the address of the first segment of 
the new buffer. The PUT routine then presents this address 
to the processing program and returns control to the 
processing program. 


The TRUNC routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 


PUT Module IGGOI9AK: Module IGGO19AK moves the present 
fixed-length or undefined-length record into the next available 
buffer segment. The OPEN executor selects and loads this module 
if the OPEN parameter list specifies: 

Output 
and the DCB specifies: 


PUT 
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Simple buffering 
Move operating mode 


Fixed-length Cunblocked, blocked, blocked standard) or 
undefined-length record format 


The module consists of a PUT routine, a PUTX routine, anda 
TRUNC routine. 


The PUT routine operates as follows: 


® It receives control when a PUT macro instruction is 
encountered in a processing program. 


e If an EOB condition exists, it issues a BALR instruction to 
obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19SAR, and then moves the record from the work area into 
the first buffer segment. 


® If no EOB condition exists, it moves the record from the 
work area into the next buffer segment. 


@ It tests for blocked records. 


® If blocked records are specified, it determines the address 
of the next segment and tests for a new EOB condition. 


e If unblocked records are specified or if a new EOB condition 
exists, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine and then returns control 
to the processing program. 


@ If no new EOB condition exists, it returns control to the 
processing program. 


The PUTX routine operates as follows: 


® It receives control when a PUTX macro instruction is 
encountered in a processing program. 


e It obtains the DCBRECAD value of the input DCB, which points 
to the present record in the input buffer. 


® It moves the DCB's LRECL field from the input DCB to the 
output DCB. 


e It enters the PUT routine at the start. The PUT routine 
then uses the input DCBRECAD value in place of the work area 
address. 

The TRUNC routine operates as follows: 


e It receives control when a TRUNC macro instruction is 
encountered in a processing program. 


e It simulates an EOB condition. 


@ It issues a BALR instruction to pass the present buffer to 
the end-of-block routine. 


e On return of control from the end-of-block routine, it 
returns control to the processing program. 


PUT Module IGGO19AL: Module IGGOLOAL moves the present 
variable-length or format-D record into the next available 
buffer segment. The OPEN executor selects and loads this module 
if the OPEN parameter list specifies: 

Output 


and the DCB specifies: 
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PUT 
Simple buffering 
Move operating mode 


Variable-length or record format-D Cunblocked or blocked), 
unspanned 


The module consists of a PUT routine, a PUTX routine, and a 
TRUNC routine. 


The PUT routine operates as follows: 


e It receives control when a PUT macro instruction is 
encountered in a processing program. 


e It determines the address of the next buffer segment and 
compares the length of the next record with the remaining 
buffer capacity. 


e If the record fits into the buffer, it moves the record, 
ipsa the length field of the block, and tests for blocked 
records. 


e If blocked records are specified, it returns control to the 
processing program. 


e If the record does not fit into the buffer or if unblocked 
records are specified, it issues a BALR instruction to pass 
the present buffer to the end-of-block routine. It issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGOLOAR. The PUT routine then moves the record from the 
work area to the buffer, updates the block-length field, and 
returns control to the processing program. 


The PUTX routine operates as follows: 


@ It receives control when a PUTX macro instruction is 
encountered in a processing program. 


e It obtains the DCBRECAD value of the input DCB, which points 
to the present record in the input buffer. 


@ It enters the PUT routine at the start. The PUT routine 
bik uses the input DCBRECAD value instead of the work area 
address. 


The TRUNC routine operates as follows: 


@ It receives control when a TRUNC macro instruction is 
encountered in a processing program. 


e It issues a BALR instruction to pass control of the present 
buffer to the end-of-block routine. 


@ It issues another BALR instruction to obtain a new buffer 
through the output-synchronzing-and-error-processing 
routine, module IGGOL9IAR. 


e It determines the address of the first segment of the new 
buffer and then returns control to the processing program. 


PUT Module IGGO1SBP: Module IGGO1OBP presents the processing 

program with the address of the next available buffer segment 

for a variable-length record. The OPEN executor selects and 

loads this module if the OPEN parameter list specifies: 
Output 

and the DCB specifies: 


PUT 
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Simple buffering 

Locate operating mode 

Variable-length spanned (unblocked or blocked) record format 
Logical record interface 

module consists of a PUT routine and a TRUNC routine. 

PUT routine operates as follows: 


It receives control when a PUT macro instruction is 
encountered in a processing program. 


If extended logical record interface (XLRI) is used, the 
logical record length field is three bytes long for logical 
records that must be spanned. The DCB LRECL value specifies 
the maximum logical record length in multiples of 1024. 


It tests whether a spanned record was to have been written. 


If the last record written was not a spanned record, it 
determines the address of the next buffer segment using the 
length field of the last record segment moved by the 
processing program. 


It checks the value placed into the DCBLRECL field to 
determine if a buffer is ready for emptying and if a new 
empty buffer is needed. If control is returned from the 
user and the prior record does not require segmentation (a 
buffer location is used instead of a record area), the SDW 
must be changed from the three low-order byte format to the 
two high-order byte format (COLLL to LLO00) when extended 
logical record interface (XLRI) is used. 


If no EOB condition exists, it tests for blocked records. 


If blocked records are specified, it presents the address of 
the next buffer segment to the processing program and 
returns control to the processing program. 


If unblocked records are specified, it issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The PUT routine issues another BALR instruction to obtain a 
new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19AR, and determines the address of the first segment of 
the new buffer. The PUT routine tests whether the present 
record to be written can fit entirely in the new buffer. 


If the record fits, the PUT routine then presents this 
address to the processing program and returns control to the 
processing program. 


If the record does not fit, the routine saves the record 
address in the record area, obtains the address within the 
record area with the proper alignment, sets the 
spanned-record flag in the I0B, presents the address in the 
record area to the processing program, and returns control 
to the processing program. 


If an EOB condition exists, it tests whether a minimum 
Rogeee segment Cat least 5 bytes) can fit in the present 
uffer. 


If it fits, the routine saves the record address, obtains 
the address within the record area, sets the spanned-record 
flag in the IOB, presents the address to the processing 
program, and returns control to the processing program. 


If it does not fit, the routine issues a BALR instruction to 


pass the present buffer to the EOB routine. The routine 
then issues another BALR instruction to obtain a new buffer 
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through the output-synchronizing-and-error-processing : 
routine, IGGOI19AR, and determines the address of the first 
segment of the new buffer. The routine tests whether the 
present record can fit entirely in the new buffer. 


® If a spanned record was to be written out, it restores the 
record address, determines the length of the segment that 
can fit in this buffer, moves the segment from the record 
area AS the buffer, and sets the proper flags for the 
segment. 


e If more segments are required, the routine issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The PUT routine issues another BALR instruction to obtain a 
new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19AR, and determines the address of the first segment of 
the new buffer. It moves the remaining bytes of data from 
the record area to the buffer and sets the proper flags for 
the segment. This step continues until the entire spanned 
record has been segmented. The routine then turns off the 
spanned-record flag and determines the address of the next 
buffer segment. 


The TRUNC routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal. It then 
returns control to the processing program. 


When a TRUNC macro instruction is issued after a spanned record 
was written, this routine branches to the PUT routine to write 
out the last record (the spanned record) and then truncates the 
block that contains the last segment of that spanned record. 


If a spanned record is being truncated in extended logical 
record interface (XLRI) mode, the truncate return is set up as 
if a buffer Location, instead of the record area, is being 
returned to the user. 

PUT Module IGGO19DJ (SYSIN/SYSOUT): Module IGGO019DJ interfaces 
with a JES to pass the present record into the system output 
stream. For locate mode, it presents the processing program 
with the address of the next available buffer segment. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Output CSYSOUT specified on the DD statement) 
and the DCB specifies: 

PUT, PUTX 

Simple buffering 

Locate, move, or data operating mode 

Fixed, undefined, or variable-length record format 

Spanned records 

Logical record interface 
The module consists of PUT, PUTX, and TRUNC macro instructions. 
(See Diagram M for an overview of the SAM-SI processing for 
QSAM.) The GET routine is also in this module. It is described 
in the section on simple-buffering GET routines (see Figure 1 on 
page 6). 
The PUT routine operates as follows: 


e It receives control when a PUT mace instruction is 
encountered in the processing program. 
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It determines the type of PUT request and performs the RPL 
initialization necessary to make the translation to a JES 
PUT request. 


The record address is placed in RPLAREA and the length of 
the record is placed in RPLRLEN. 


For move mode the record address is obtained from register 0 
on entry to the PUT routine. For locate mode, RPLAREA was 
set up on the previous invocation of the PUT routine. 


For all record formats other than variable-type, record 
length is determined by DCBLRECL. For variable format, the 
current RDW specifies the record size, unless data mode for 
variable-length spanned records is requested, in which case 
DCBPRECL ‘contains the record length. Also for variable 
format, the RDW is excluded from the output record by 
pied EE EERER past the RDW and decreasing the record 
eng y 4. 


Record Format Value of RPLRLEN 

Variable-length record format RDN Length - 4 

(move or locate mode) 

Variable-length record format value equals total length 

(spanned records, locate mode) of all segments in a 
, logical record 

Variable-length spanned record RDW length - 4 

format (move mode) 

Variable-length spanned record DCBPRECL 

format (data mode) 

Fixed and undefined-length  DBLRECL 

hep format Cmove or locate 

mode 


If processing is in locate mode with variable-length spanned 
record format, the present segment is moved to the record 
area. If the SDN indicates the logical record is not 


complete, the address for the next segment is loaded into 


register 1 and control is returned to the processing 
program. 


If the DCB record format indicates ASA or machine control 
characters, then the control character is checked to 
determine if it is a Composed Page Data Stream control byte. 
In this case, the ACB data stream indicator is set 
ese before passing control to the job entry subsystem 


It passes control to the job entry subsystem (JES) for data 
transfer by issuing a PUT macro instruction against the RPL. 
ie coon code in register 15 is tested upon return from 

e : 


If a control character is indicated in the DCBRECFM field of 
the DCB, the RPLAREA pointer to the record will be adjusted 

to point past the control character and the RPLRLEN will be 

reduced by 1. The address of the control character is placed 
in the RPLCCHAR field. 


Upon return, register 15 and the RPLRINCD and RPLCNDCD 
fields are tested. 


If an error condition is detected, control is passed to the 
A A aa routine, IGGOL9AH. (See Figure 12 on 
page , 


For normal completion, the address in the RPLAREA field is 


placed in register 1 for locate mode. The RPLAREA field 
contains the address of the next available buffer. 
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Registers are restored and control is returned to the 
processing program. 


The PUTX routine operates as follows: 


® It receives control when a PUTX macro instruction is 
encountered in the processing program. This routine 
processes only the output mode of the PUTX macro 
instruction. 


e The address of the input buffer to be written is located 
through the DCBRECAD Field of the input DCB. 


® After having located the output record, the request is then 
processed by the PUT routine as a PUT, move mode request. 


The TRUNC routine receives control when a CNTRL or TRUNC macro 
instruction is issued. Module IGGO019DJ toes no processing for 
these macro instructions. Control is returned to the processing 
program by IGGOLODJ. ; 


PUT Module IGGO019FG: Module IGGOL9FG moves the data portion of 
the variable-length record into the next available buffer 
segment. The OPEN executor selects and loads this module if the 
OPEN parameter list specifies: 


Output 

and the DCB specifies: 
PUT 
Simple buffering 
Data operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


The module consists of a PUT routine and a TRUNC routine. 
The PUT routine operates as follows: 


® It receives control when the processing program issues a PUT 
macro instruction. 


® It determines the possible location of the next buffer 
segment by adding the length of the previous record or 
record segment to the previous buffer segment address. This 
address is in the DCBRECAD field. 


e It then compares the length of the next record with the 
remaining buffer capacity. 


® If ISO/ANSI/FIPS spanned records are being processed, the 
buffer position pointer is updated to allow room for the 
5-byte ISO/ANSI/FIPS segment control word (SCW). 


e If the record will fit, the routine moves the record, 
updates the lensth field of the block descriptor word (BDN), 
and checks for blocked records. 


e If blocked records are specified, the routine returns 
control to the processing program. If unblocked records are 
specified, the routine issues a BALR instruction to pass the 
current buffer to the EOB routine. The PUT routine issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing~and-error-processing routine, module 
IGGOLOAR. The PUT routine then builds a new block 
descriptor word (BDW) and returns control to the processing 
program. 


e If the record will not fit, the routine determines whether 
there are 5 or more unused bytes remaining in the buffer. 
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If there are, the PUT routine breaks the current record so 
that the first segment fills the buffer. The remaining 
segment will be placed in subsequent buffers. The length 
field in the segment descriptor word (SDH) of the first 
segment is updated to reflect the length of the segment. 
The third byte of this SDW is set to X'01' to indicate that 
this segment is the first of a multisegment record. After 
writing the buffer, the PUT routine does not return control 
o the processing program until the entire record has been 
processed. The routine forms the remainder of the current 
record into a new segment. The new segment is constructed 
in a new buffer; the third byte of the SDW of the newly 
created segment is set to X'02" if this segment is the last 
of a multisegment record. If there are other segments, the 
third byte is set to X'03" to indicate that this segment is 
neither the first nor the last of a multisegment record. 
Newly created segments are processed as any other record. 


TRUNC routine operates as follows: 


It receives control when a TRUNC macro instruction is 
encountered in a processing program. 


It issues a BALR instruction to pass control of the present 
buffer to the end-of-block routine. 


It issues another BALR instruction to obtain a new buffer 
through the output-synchronizing~-and-~error-processing 
routine, module IGGO19AR. 


It determines the address of the first segment of the new 
buffer and then returns control to the processing program. 


Module IGGO19FJ: Module IGGOI19FJ presents the processing 


program with the address of the next available buffer segment 


for 


a variable-length record. The OPEN executor selects and 


loads this module if the OPEN parameter list specifies: 


and 


The 
The 


36 MVS/XA SAM Logic 


Output 

the DCB specifies: 
PUT 

Simple buffering 
Locate operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


module consists of a PUT routine and a TRUNC routine. 
PUT routine operates as follows: 


It receives control when the processing program issues a PUT 
macro instruction. 


It determines the address of the next buffer segment by 
adding the address of the last record or record segment 
moved to the buffer and the length of that record or record 
segment. The length of the record segment is in the SDW. 


It checks the buffer to see if there are 5 or more unused 
bytes. 


If there are 5 or more unused bytes remaining in the buffer, 
the PUT routine places their address into register 1 for the 
processing program. The PUT routine places the exact number 
of bytes left in the buffer into register 0 for the 
processing program. The PUT routine then returns control to 
the processing program. 
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If the buffer contains fewer than 5 unused bytes, the 
routine issues a BALR to the EQB routine. The PUT routine 
issues another BALR instruction to obtain a new buffer 
through the output~synchronizing-and-error-processing 
routine, module IGGOLOAR, and determines the address of the 
first segment of the new buffer. The PUT routine then 
builds a new block descriptor word (BDW) and returns control 
to the processing program. 


TRUNC routine causes an EOB condition by setting the 


DCBRECAD and DCBEOBAD fields so that they are equal. It then 
returns control to the processing program. 


PUT 


Module IGGO19FL: Module IGGO1OFL moves the current 


variable-length record into the next available buffer segment. 


The 


OPEN executor selects and loads this module if the OPEN 


parameter list specifies: 


and 


The 
The 


Output 

the DCB specifies: 
PUT 

Simple buffering 
Move operating mode 


Variable-length (unblocked or blocked) record format, 
spanned 


module consists of. a PUT routine and a TRUNC routine. 
PUT routine operates as follows: 


It receives control when the processing program issues a PUT 
macro instruction. 


It determines the possible location of the next buffer 
segment by adding the length of the previous record or 
record segment to the previous buffer segment address. This 
address is in the DCBRECAD field. 


It then compares the length of the next record with the 
remaining buffer capacity. 


If the record will fit, the routine moves the record, 
updates the length field of the block descriptor word (BDW), 
and checks for blocked records. 


If ISO/ANSI/FIPS spanned records are being processed, the 
buffer position pointer is updated to allow room for the 
5-byte ISO/ANSI/FIPS segment control word (SCW). 


If blocked records are specified, the routine returns 
control to the processing program. If unblocked records are 
specified, the routine issues a BALR instruction to pass the 
current buffer to the EOB routine. The PUT routine issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19AR. The PUT routine then builds a new block 
descriptor word (CBDW) and returns control to the processing 
program. 


If the record will not fit, the routine determines whether 
there are 5 or more unused bytes remaining in the buffer. 

If there are, the PUT routine breaks the current record so 
that the first segment fills the buffer. The remaining 
segment is placed in subsequent buffers. The length field 
in the segment descriptor word (SDH) of the first segment is 
updated to reflect the length of the segment. The third 
byte of this SDN is set to X'01" to indicate that this 

segment is the first of a multisegment record. After 
writing the buffer, the PUT routine does not return control 
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to the processing program until the entire record has been 
processed. The routine forms the remainder of the current 
record into a new segment, which is constructed in a new 
buffer. The third byte of the SDN of the newly created 
segment is set to X'02' if this segment is the last of a 
multisegment record. If there are other segments, the third 
byte is set to X'03' to indicate that this segment is 
neither the first nor the last of a multisegment record. 
Newly created segments are processed as any other record. 


The TRUNC routine operates as follows: 


© It receives control when a TRUNC macro instruction is 
encountered in a processing program. 


e It issues a BALR instruction to pass control of the present 
buffer to the end-of-block routine. 


° It issues another BALR instruction to obtain a new buffer 
through the output-synchronizing-and-error-processing 
routine, module IGGOIL9AR. 


e It determines the address of the first segment of the new 
buffer and then returns control to the processing program. 


Update Mode PUTX Routines 


The update mode PUTX routines differ from other PUT routines in 
that PUTX routines share buffers (Cas well as the DCB and the 
IOBs) with the update mode GET routines. It is the update mode 
GET routines that determine the address of the segment, when the 
end of the buffer is reached and a new buffer is needed. Thus, 
a oe remains for the PUTX routines is to flag the block for 
output. 


There are two update-mode PUT routines. They are part of 
modules IGGO19AE and IGGO1LOBN, which are described under 
"Update-Mode GET Modules" (see Figure 3 on page 21). 


END-OF-BLOCK ROUTINES 


The end-of-block routines are selected for use with a particular 
data set on the basis of the access conditions specified by the 
processing program for that data set. 


Unless INOUT or OUTIN is specified in the OPEN parameter list, 
one end-of-block routine is selected. If INOUT or OUTIN is 
specified, two end-of-block routines may be required. When 
user-totaling is specified, a special user-totaling routine is 
executed in conjunction with one of the end-of-block routines. 


An end-of-block routine receives control from a GET or a PUT 
routine (when using QSAM), or from a READ or WRITE routine (when 
using BSAM). 


End-of-block routines are shared by BSAM and QSAM. QSAM flow of 
control is shown in Diagram F; BSAM flow is shown in Diagram G 
Register usage at entry to and exit from end-of-block routines 
is as follows: 


Registers Entry Value Exit Value 

0-1 N/A Not restored 

2 DCB address Unchanged or 
restored 

3 IOB - 8 Cor ICB) Unchanged or 
restored 
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Registers Entry Value Exit Value 

4-6 N/A Not restored 

7 READ or WRITE CCW offset Unchanged or 
restored 

8 Caller's base address Unchanged or 
restored 

9-10 User's registers Restored! 

11-12 User's registers Unchanged or 
restored 

13 Save area Unchanged or 
restored 

14 Caller's return address Unchanged or 
restored 

15 Entry point address Not restored 

Note: 


1 These registers are saved by end-of-block in the last two 
ote of the save area, and are restored before returning to 
caller. 


Control passes from an end-of-block routine, through the EXCP or 
EXCPVR interface, to the I/0 supervisor, except when one channel 
program or IOB is chained to another. End-of-block routines 
provide device-oriented entries for the channel program, such as 
control characters and auxiliary storage addresses. 


If the American National Standard Code for Information 
Interchange (ASCII) is used, routines IGG019CC and IGG019CW 
issue an XLATE macro instruction which translates the entire 
buffer from EBCDIC to ASCII before writing the buffer. If 
format-D records are specified, the record descriptor words are 
converted from binary form to decimal form prior to translation. 


End-of-block routine descriptions are grouped as follows: 


e Ordinary end-of~block routines. These routines perform 
device-oriented processing when normal channel-program 
scheduling is used for tape and unit record devices. The 
user-totaling routine is described in this section. It 
moves the contents of the user's totaling area to the 
user-totaling save area pointed to by the DEB. 


e Chained channel-program scheduling end-of-block routines. 
These routines perform device-oriented processing and 
attempt to chain channel programs when chained 
Geo. eee scheduling is used for tape and unit record 

evices. 


e DASD end-of-block routines. These routines perform 
direct-access device processing for output data sets. The 
routines attempt to chain IOBs to a queue for which a 
real-address channel program will be dynamically built by 
the DASD SI0O/pagefix appendage. 


Ordinary End-of-Block Routines 


Ordinary end-of-block routines process channel programs for tape 
and unit record devices. This processing is independent of the 
progress of a previous channel program and causes access to 
proceed one channel program at a time. For unit-record devices, 
these routines process control characters and PRIOY macro 
instructions. 


Figure 5 on page 41 lists the routines available and the 
conditions that cause a particular routine to be used. For 
QSAM, the OPEN executor selects one of the routines, loads it 
and places its address into the DCBEOB field. For BSAM, the 
OPEN executor selects one of the routines, loads it, and places 
its address into both the DCBEOBR and DCBEOBW fields. If INOUT 
or OUTIN is specified, a second end-of-block routine may be 
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selected and loaded. Its address replaces one of the duplicate 
addresses in the DCB. 


End-of-Block Module IGG019CC: Module IGG019CC causes a channel 
program to be scheduled. 


If ASCII coding is used, the entire output buffer is translated 
from EBCDIC to ASCII. If the ISO/ANSI/FIPS spanned record 
format (DS/DBS) is used, the 4-byte IBM segment descriptor word 
(SDN) is converted to the 5-byte ISO/ANSI/FIPS segment control 
word (SCN) before translation. 


The OPEN executor selects and loads this module if the following 
condition exists: 


The DCB specifies normal channel-program scheduling and 
eoaenee tape, card reader, or paper tape as the device 
yPe. 


The module operates as follows: 


e It receives control when a GET or PUT routine finds that a 
buffer is ready to be scheduled, or at the conclusion of the 
processing performed by a READ or WRITE routine. 


° If the device type is magnetic tape, record format is 
variable, control is received from a PUT or WRITE routine, 
and a check is made to see if at least 18 bytes are to be 
written. If not, the record is padded with binary zeros up 
to 18 bytes or block size, whichever is less; however, with 
the ASCII feature, format-D records are padded with the 
ASCII padding character, X'5F', instead of with zeros. An 
EXCP macro instruction is issued, and control is returned to 
the PUT or WRITE routine. 


@ If the device type is magnetic tape and either the record 
format is not variable or control is not gained from a PUT 
or WRITE routine, an EXCP macro instruction is issued and 
control is returned to the GET, PUT, READ, or WRITE routine. 


6 If an IBM 3525 Card Punch associated data set is being used, 
iad is made to determine the status of the read-sequence 
ag. 


- If the read-sequence flag (DCBQSNS field) is on and the 
associated data set is not READ and print, a WTP 
message, which indicates that either the GET or READ 
sequence is invalid, is issued. An abend (003) is 
issued with a return code of 01. If the read-sequence 
flag is off, the macro sequence is assumed to be valid 
and the READ-sequence flag is turned on. 


- Tests are made to determine if the associated data set 
is either read, punch, and print, or read and punch. 


~ If either read, punch, and print, or read and punch is 
specified in the FUNC parameter, a test is made to 
determine the status of the punch-sequence flag. If the 
Punch-sequence flag (DCBQSWS field) is on, it is turned 
off. (This indicates to modules IGGOLSCE and IGGO19CF 
that their calling routine is in the proper sequence. ) 


~ If the associated data set is not read, punch, and 
print, or read and punch, it is assumed that read and 
print is being used. 


- A test is made to determine the status of the 
print-sequence flag CDCBQSWS).-: 


~ If the print-sequence flag is on, it is assumed that the 
print command has been issued. It is turned off so that 
proper sequencing may continue. If the print~sequence 
flag is off, it is assumed that the print command has 
not been issued. 
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Access Method 





Options Selections 

Normal channel program X xX X X X xX X X X X X KX X KX X 
scheduling : 

Output, or INOUT OUTIN 7 x 

Card reader Xx xX 

Printer or card punch Xx X xX XX XK X X 

Printer (3535) Xx XX 
Interpreter/Punch (€3525) X 
Data Processing Image X 

(3525) 

Magnetic Tape X xX 

No control character X 

Machine control character 

ANS control character X xX 

PRTOV—-No user exit Xx xX X 

Label=(,,,IN) or X 
Label=(,,,0UT) on DD 

statement?! 

User totaling facility X 

Associated data set X X xX X X X 
End of Block Modules 

IGGO19AX AX 

IGG019CC cc cc cc 

IGGO19CE CE CE CE CE 

IGGO1L9CF CF CF 

IGG019CT? CT 

IGGO19FK FK 
IGGO19FQ FQ FR 
IGGO19FU FU 
IGG019TC TC 

Figure 5. Module Selector—Ordinary End-of-Block Modules (non-DASD) 


Note to Figure 5: 


a When either of these LABEL parameters is specified and the 


data set is opened for INOUT or OUTIN, th 


e OPEN executor 


loads module IGGO19SCT in addition to one of the other 
end-of-block routines. 
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End-of-Block Module IGGO19CE: Module IGGO19CE, if necessary, 
modifies channel programs for unit record output devices when 
American National Standard Institute (ANSI) control characters 


are 


not used. The module then causes scheduling of the channel 


program, whether it was modified or not. The OPEN executor 
selects and loads this module if the DCB specifies: 


The 


G2 WMVS/XA SAM Logic 


Normal channel-program scheduling 

Punch, or printer 

Machine control character, or no control character 
module operates as follows: 


It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of the 
Processing performed by a WRITE routine. 


It adjusts, in the channel program, the length and starting 
address either for the length field of variable-length 
records or for a control character. If there are 
variable-length records and a control character, the module 
adjusts for both. 


If a control character is present, it inserts it as the 
command byte of the WRITE channel command word (CCW). 


If the device is an IBM 3800 Printing Subsystem and OPTCD=J 
is specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. (CIf OPTCD=J/J is not 
specified, the common printer channel program is used. ) 


It tests the DCB field at location DCBDEVT + 1 for a PRTOV 
mask. If a PRTOV mask is present, the module temporarily 
inserts it into the length field of the NOP CCW and sets the 
first bit in the IOB. The PRTOV appendage IGGOI9SCL tests 
for the presence of the IOB bit and the CCW mask. 


If an associated data set is being used, a test is made to 
determine the status of the punch-sequence flag. 


a If the punch-sequence flag (DCBQSWS) is on and the 
associated data set is not punch and print, a WTP 
message is issued which indicates that either the PUT or 
WRITE sequence is invalid. An abend (003) is issued 
with a return code of 02. If the punch-~sequence flag is 
off, the macro sequence is assumed to be valid and the 
punch-sequence flag is turned on. 


- A test is made to determine if the associated data set 
is read, punch, and print. If read, punch, and print is 
specified in the FUNC parameter, a test is made to 
determine the status of the read-sequence flag. 


- If the read-sequence flag is on, it is turned off. This 
allows proper sequencing to continue. If the 
read-sequence flag is off, an ABEND is issued. 


= A test is made to determine the status of the 
print-~sequence flag. 


- If the print-sequence flag is on,» proper sequencing 
continues. If it is off, modules IGGO19CE and IGGO19CF 
continue with their normal functions. 


a If the associated data set is punch and print, the 


status of the print-sequence flag is determined as 
previously explained for module IGGOIL9SCC. 
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e It issues an EXCP macro instruction and returns control to 
the PUT or WRITE routine. 


End-of-Block Module IGGO1LSCF: Module IGGO19OCF modifies channel 
programs for unit record output devices when an American 
National Standard Institute CANSI) control character is present. 
The module then causes scheduling of the channel program, 
whether it was modified or not. The OPEN executor selects and 
loads this module if the DCB specifies: 


Normal channel-program scheduling 
Punch or printer 
ANS control character 

The module operates as follows: 


6 It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


@ It adjusts, in the channel program, the length and starting 
address for the control character, and for the length field 
of variable-length records. 


@ It translates the control character and inserts it as the 
command byte of the control channel command word () which 
precedes the WRITE CCW Cor the select CChl, if the device is 
a 3800 Printing Subsystem with OPTCD=J specified. ) 


e If the device is .a 3800 Printing Subsystem and OPTCD=J is 
specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCN, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. (If OPTCD=J is not 
specified, the common printer channel program is used.) 


6 It tests the DCB field at location DCBDEVT+l for a PRTOV 
mask. If a PRTOV mask is present, the module inserts it 
into the length field of the control CCW and sets the first 
bit in the IOB. The PRTOV appendage IGGOI9CL tests for the 
presence of the IOB bit and the CCW mask. 


® If an associated data set is being used, a test is made to 
determine the status of the punch-sequence flag. 


= If the punch-sequence flag (DBCBQSNS) is on and the 
associated data set is not punch and print, a WTP 
message is issued to indicate that either the PUT or the 
WRITE sequence is invalid. An abend (003) is issued 
with a return code of 02. If the punch-sequence flag is 
off, the macro sequence is assumed to be valid and the 
punch-sequence flag is turned on. 


-_ A test is made to determine if the associated data set 
is read, punch, and print. If read, punch, and print is 
specified in the FUNC parameter, a test is made to 
determine the status of the read-sequence flag. 


- If the read-sequence flag CDCBQSWS ) is on, it is turned 
off. This allows proper sequencing tu continue. If the 
read-sequence flag is off, an ABEND is issued. 


a A test is made to determine the status of the 
Print-sequence flag CDCBQSWS). 


- If the print-sequence flag is on, proper sequencing 


continues. If it is off, modules IGGO19SCE and IGG0O19CF 
continue with their normal functions. 
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= If the associated data set is punch and print, the 
status of the print-sequence flag is determined, as 
previously explained for module IGGO19CC. 


It issues an EXCP macro instruction and returns control to 
the PUT or WRITE routine. 


End-of-Block Module IGGO19CT: Module IGGO19CT sets error 
indicators in the user‘ts DCB and IOB. The OPEN executor selects 


and 


or 


The 


loads this module if the following conditions exist: 


The data set is opened for INOUT and the DD statement 
specifies LABEL=(€,,,IN) 


The data set is opened for OUTIN and the DD statement 
specified LABEL=(C,,,0UT) 


module operates as follows: 


It receives control and sets error indicators in the user's 
DCB and IOB when either of the following conditions exists: 


The DD statement specifies LABEL=(€,,,IN), the data set 
is Aiea for INOUT, and a WRITE macro instruction is 
issued, 


The DD statement specifies LABEL=(,,,0UT), the data set 
is opened for OUTIN, and a READ macro instruction is 
issue 


End-of-Block Module IGGO19FK: Module IGGO19FK causes a channel 
program to be scheduled. The OPEN executor selects and loads 
this module, if the following conditions are described in the 


DCB 


The 
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Data protection image (DPI) is specified for the 3525 with a 
read and punch, or read, punch, and print file with normal 
channel-program scheduling. 


module operates as follows: 


It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


If the READ associated data set has been opened, a test is 
made to determine the status of the read-sequence flag. 


If the READ associated data set has not been opened, or if 
the READ-sequence flag is off, a WIP message is issued which 
indicates that the sequence is invalid. An abend (003) is 
then issued with a return code of 02. If the read-sequence 
flag is on Cindicating proper sequencing), it is turned off. 


A test is then made to determine the status of the 
punch-sequence flag CDCBQSHS field). If the punch-sequence 
flag is on, a WTP message is issued, followed by an ABEND 
(003). If the punch-sequence flag is off, it is turned on 
so that proper sequencing may continue. 


It then establishes the buffer area (for the punch 
operation) according to the format of the data protection 
image. If a byte in the DPI is blank (X'40"), the module 
blanks out the corresponding byte in the output punch 
buffer. If the byte is not blank, the output buffer is not 
altered. Both areas are 80 bytes in length. 


It returns control to either the PUT or WRITE routine that 
called it. 
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End-of-Block Module IGGO19FQ: Module IGGOL9FQ causes a channel 
program to be scheduled to the 3525 Card Punch. The OPEN 
executor selects and loads this module, if the following 
conditions exist: 


The 


A print; read, punch, and print; read and print; or punch 
and print file is specified for the 3525 with either a 
machine control character, an ANSI control character, or no 
control character at all with normal channel-program 
scheduling. 


module operates as follows: 


It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of 
processing performed by a WRITE routine. 


If either a read, punch, and print or punch and print 
associated data set has been specified, a test is made to 
determine the status of the print sequence flag. If the 
print-sequence flag is on, the CCW pointer is modified to 
point to the print CCW. 


If both the print- and punch~sequence flags are off, a WTP 
message is issued to indicate that the sequence is invalid. 
An abend (003) is then issued with a return code of 03. 


If the print-sequence flag is off, but the punch-sequence 

flag is on, the module locates the punch DCB and turns off 

the punch-sequence flag. The CCW pointer is then modified 

4 eee to the print CCW and the print-sequence flag is 
urned on. 


If a read and print associated data set is specified and the 
print-sequence flag is on, the CCW pointer is modified to 
point to the print CCH. 


If the print-sequence flag is off, but the read-sequence 
flag is on, the READ DCB is located and the read-sequence 
flag is turned off. The CCW pointer is then modified to 
point to the print CCW and the print-sequence flag is turned 
on. 


After sequence checking is completed, the module tests for 
ANSI and machine control characters. If ANSI is specified, 
the control character is analyzed to determine which line 
the data is to be printed on. An OR operation is then 
performed on that line number and the print CCW. 


If ANSI control characters are not specified, the module 
tests for record format and machine control characters. If 
machine control characters are specified, they are inserted 
into the CCW and the buffer address is increased by one. 


If no control character is specified, and two-line printing 
is specified in the FUNC parameter, the module tests to 
determine line positioning on the card. This is reflected 
in the operation code of the print CCN. 


If no control character is specified, and multiline printing 
1s specified, tests are again made to determine line 
epee ak a COutput lines are printed on successive 

ines. 


If no control characters are specified, or if they are 
specified and have been processed, or if either two-line or 
multiline positioning is complete, the module establishes 
the WRITE CCW and stores the start address of the CCN for 
the input/output supervisor (CIOS). 


If the PRTOV macro instruction is specified, a check is made 
for either channel 9 or 12 (depending on which channel is 
specified in the PRTOV macro instruction). 
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e The channel program is then executed and a WAIT command is 
issued. It returns control (via register 14) to either the 
PUT or WRITE routine that called it. 


End-of-Block Module IGGO19FU: Module IGGO19OFU causes a channel 
program to be scheduled. The OPEN executor selects and loads 
this module if one of the following conditions exists: 


INTERPRET PUNCH is ‘Specified for the 3525 with normal 
channel-program scheduling. 


INTERPRET PUNCH is specified for the 3525 with first control 
hal ia for stacker selection or with no control character 
ata 


The module operates as follows: 
e It retrieves the data address from the WRITE CCW. 


° It tests for record format to determine if machine control 
characters or ANS control characters are being used. 


e If either machine or ANS control characters are being used, 
the data address is increased by one and the control 
al is inserted into the command byte of the WRITE 


e If machine control characters are not specified, the data 
address remains unchanged. 


® The module blanks out a print buffer. (The print buffer is 
a 64-byte area located 64 bytes past the beginning of the 
IOB.) It then moves the final 16 characters of the output 
punch buffer into the last 16 bytes of the print buffer. 


° The channel program start address is stored in the IOB. 
@ The channel program is then scheduled for execution. 


@ It returns control (via register 14) to either the PUT or 
WRITE routine that called it. 


End-of-Block Module IGGO19TC: The OPEN executor selects and 
loads this module if the user specified the user-totaling 
facility (that is, if bit 6 is 1 in DCBOPTCD) for the data set 
and if the following condition exists: 


The DCB specifies normal channel-program scheduling and 
magnetic tape as the device type. 


The module operates as follows: 


e It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of the 
Processing performed by a WRITE routine. 


e The module issues an EXCP macro instruction and returns 
control to the PUT or WRITE routine. 


® It issues a BALR instruction to the user-totaling save 
routine, IGGO1L9AX, to place the user's total in the 
user-totaling save area, which is pointed to by the DEB. 


User-Totaling Save Module IGGO19AX: Module IGG019AX saves an 
image of the user's totaling area in the sequential access 
method totaling save area. This save area is described in 
Figure 36 on page 244. 


The OPEN executor selects and loads this module if the 


user-totaling option is specified in the DCB (that is, if bit 6 
is 1 in the DCBOPTCD field). 
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The module operates as follows: 


é It receives control from one of the end-of~block 
routines—-IGG019TC, IGGO19TV, IGGOLOTN, or IGG019T2. 


It retrieves the address of the sequential access method 
seeanans save area from the access method portion of the 


e The sequential access method totaling save area contains a 
pointer to the user's totaling area. An image of the user's 
total is saved in the next available segment of the 
sequential access method totaling save area. Then the save 
area control block is updated so that the pointer identifies 
the current entry. 


e + returns control to the end-of-block routine that called 
it. 


Chained Channel-Program Scheduling End-of-Block Routines (Non-DASD Only) 


Chained channel-program scheduling consists of joining the 
channel programs before execution and disconnecting and posting 
the channel programs after execution. Joining is performed by 
the end-of-block routines; disconnecting and posting is 
performed by appendages. (For a description of the 
disconnecting process, refer to the program controlled 
interruption (PCI) and channel-end appendages.) The IOB 
constructed by the OPEN executor when chained channel-program 
scheduling is used differs from the IOB used in normal 
channel-program scheduling. These differences are illustrated 
in Figure 6 and tabulated in Figure 8 on page 49 


(a) 
SAM Prefix to 108 when 
normal channel-program 
scheduling is used 


Next 1IOB Event Control Block 
ECB Address® 








Standard IOB 


*When OQSAM is used, the address is that of 
the ECB in the SAM prefix; when BSAM is 
used the address is that of the ECB in the 
data event control block (DECB). 


Figure 6. 
Scheduling 


(b) 
SAM Prefix to 1OB when 
chained channel-program 
scheduling is used 


Event Control Block 
(Frees | tse NOP com 
ECB Address** 















Standard {0B 


—_——— 2 Words > 


** Always shows the address of the ECB in 
the SAM prefix, irrespective of whether 
QSAM or BSAM is used. 


IOB SAM Prefixes for Normal and for Chained 
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These routines Join channel programs so that the channel 
executes successive channel programs without interruption as if 
they were one continuous channel program. To join the present 
channel program to one already scheduled, the end-of-block 
routine finds the last CCN of the preceding channel program by 
referring to the IOB and changes that CCW from a NOP command to 
a TIC command. If this joining is performed before the channel 
attempts to execute (more precisely, before it fetches) that 
CCH, the joining process is successful. If the execution of the 
preceding channel program is completed while the routine is 
operating, the joining is unsuccessful. 


The routine tests the main IOB's IOBCNOPA field to determine 
whether to join the channel programs or to issue an EXCP. The 
routine tries to add to the chain by using CS to test whether 
the high-order bit of IOBCNOPA is on. If the bit is on, the 
chain is no longer running. If it is off, the CS instruction 
changes the last NOP pointer to join the new channel program. 
CS is used to prevent MP systems from starting two chains at 
once. 


The chained scheduling end-of-block routines, like the ordinary 
end~of-block routines, provide device~oriented entries for 
channel programs. For unit-record devices they process control 
characters. (No processing is performed for the PRTOV macro 
instruction because it and chained scheduling are mutually 
exclusive.) There are four chained scheduling end-of-block 
routines, each of which performs joining and channel program 
entry processing for a different set of access condition 
options. Figure 7 lists the available routines and the 
conditions that cause a particular routine to be used. 


For QSAM, the OPEN executor selects one of the routines, loads 
it, and places its address into the DCBEOB field. For BSAM and 
BPAM, the OPEN executor selects one of the routines, loads it, 
and places its address into both the DCBEOBR and DCBEOBW fields. 
If INOUT or OUTIN is specified, a second end-of-block routine 
may be selected and loaded. Its address replaces one of the 
duplicate addresses in the DCB. 

Figure 7 shows that, when chained scheduling is used, the OPEN 
mode is input, the device type is magnetic tape, and routine 


IGGO1LOCN is selected and loaded for use as the end-of-block 
routine for the DCB. 


‘ Access Method Options Selections 
Chained channel program X X X X X X X 
scheduling 
Input, or X X 
Gutput X X X X X 
Card reader X 
Printer or card punch X X X 
Magnetic tape X X X 
No control character X 
Machine control character X 
ANS control character X 
Figure 7 (Part 1 of 2). Module Selector—Chained 


Channel-Program Scheduling, 
End-of-Block Modules—Non-DASD 
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Access Method Options 


Selections 


User-totaling facility 


End-of-Block Modules 


IGGO19AX? 
IGGO19CW 
IGGO19CX 
IGGO19CY 
IGGOILSTW 


CW CW CW 


AX 


CX CX 
CY 
TW 





Figure 7 (Part 2 of 2). 


Note to Figure 7: 


Module Selector-——Chained 


Channel-Program Scheduling, 
End-of-Block Modules——Non-DASD 


i This module is described earlier in this section under 
"Ordinary End-of-Block Processing." 


Prefix Parameter 


Number of IOBs 


Size of SAM prefix 


Contents of link 
address field 


Use of ECB field 


Contents of IOBCICBA 
field 


Contents of IOBCNOPA 
field 


Figure 8. 


Normal Scheduling 


As many as there are 
buffers or channel 
programs 


2 words 

Address of the next 
IOB 

Used in QSAM to post 
channel program 
execution (Cin BSAM, 


the ECB in the DECB 
is used) 


Field does not exist 


Field does not exist 


Chained Scheduling 
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Chained Scheduling 


Only 1 Cthere are as 
many ICBs as there 
are buffers or 
channel programs) 


4 words 


Flags 
Offsets 


Used in QSAM and 
BSAM to post a 
channel program 
execution that is 
terminated by 
channel-end 
interruption (that 
is, channel program 
chaining has been 
broken) 


Address of the first 
ICB 


Address of NOP CCW 
of last scheduled 
channel program. The 
high-order bit is on 
when the chain is 
running. 


Comparison of IOB SAM Prefixes for Normal and for 
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End-of-Block Module IGGOI9CW: Module IGGOLOCW attempts to join 
the present channel program to the last one in the chain of 
scheduled channel programs. If ASCII is used, the entire output 
buffer is translated from EBCDIC to ASCII. If the ISO/ANSI/FIPS 
spanned record format (DS/DBS) is being processed, the 4-byte 
IBM segment descriptor word (SDN) is converted to the 5-byte 
ISO/ANSI/FIPS segment control word (SCH) before translation. 

The OPEN executor selects and loads this module if one of the 
following conditions exists: 


e The OPEN parameter list specifies input and the DCB 
specifies chained channel~program scheduling and any device 
except DASD. 


® The OPEN parameter list specifies output and the DCB 
oo. chained channel program scheduling and magnetic 
ape. 


The module operates as follows: 


® It receives control from a GET or PUT routine when the 
routine finds that a buffer is ready to be scheduled, or 
from a READ or WRITE routine at the conclusion of its 
processing. 


e If the device type is magnetic tape, the routine determines 
the increment value and stores it in the ICB 


® If the device is magnetic tape, the record format is 
variable, and control is received from a PUT or WRITE 
routine, a check is made to see if at least 18 bytes are to 
be written. If not, the record is padded with binary zeros 
up to 18 bytes or block size, whichever is less; however, 
with the ASCII feature, format-D records are padded with the 
ASCII padding character, X'5F*, instead of zeros. 


® The module attempts to join the channel program for the 
current buffer to the preceding channel program (that is, 
chain schedule) by: 


- Setting the ICB to not-complete 


= Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program 


a Changing the NOP CCW in the preceding channel program to 
a TIC CCW 


= Updating the SAM IOB prefix block to point to the end of 
the current channel program by doing a CS on IOBCNOPA 


@ If the joining (the CS) was successful, the routine returns 
control to the calling routine. 


e If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of the 
channel by copying the channel program start address from 
the current ICB into the IOB, and uses the EXCP macro 
instruction to cause scheduling of the channel program. It 
then returns control to the calling routine. 
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End-of-Block Module IGGO19CX: Module IGGO19CX, if necessary, 
modifies channel programs for unit-record output devices when 


ANS 


control characters are not used. The module then attempts 


to join the current channel program to the preceding one. The 
OPEN executor selects and loads this module if the DCB 
specifies: 


Chained channel-program scheduling 

Printer or ear eenck 

No control character or machine control character 
module operates as follows: 


It receives control from a PUT routine when the routine 
finds that a buffer is ready for scheduling, or from a WRITE 
routine at the conclusion of its processing. 


It adjusts the length entry and the start address entry in 
the channel program for either a control character or a 
aa block length field or for both, if both are 
present. 


It inserts the control character, if present, as the command 
byte of the WRITE channel command word (CCH). 


If the device is a 3800 Printing Subsystem and OPTCD=J is 
specified, the module determines if the table reference 
character in the: current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. CIf OPTCD=J is not 
specified, the common printer channel program is used.) 


It attempts to join the channel program for the current 
buffer to the preceding channel program (that is, chain 
schedule) by: 

- Setting the ICB to not-complete 


- Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program 


- Changing the NOP CCW in the preceding channel program to 
a TIC CCW 


- Updating the SAM IOB prefix block to point to the end of 


the current channel program by a CS instruction on 
IOBCNOPA 


If the joining (the CS instruction) was successful, the 
routine returns control to the calling routine. 


If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of the 
channel by copying the channel program start address from 
the current ICB into the IOB, and uses the EXCP macro 
instruction to cause scheduling of the channel program. It 
then returns control to the calling routine. 
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End-of-Block Module IGGOI9CY: Module IGGOLOCY modifies channel 
programs for unit record output devices when ANS control 
characters are used. The module then attempts to join the 
current channel program to the preceding one. The OPEN executor 
selects and loads this module if the DCB specifies: 


e Chained channel-program scheduling 
e Printer or card punch 

e =€=ANS control character 

The module operates as follows: 


® It receives control from a PUT routine that finds a buffer 
is to be scheduled, or from a WRITE routine at the 
conclusion of its processing. 


e It adjusts the length entry and the start-address entry in 
the channel program for either the control character or a 
varseple-cepesh block length field or for both, if both are 
present. 


e It translates the control character and inserts it as the 
le byte of the control CCW which precedes the WRITE 


® It translates the control character and inserts it as the 
command byte of the control CCW which precedes the WRITE CCW 
€or the select CCN, if the device is a 3800 Printing 
Subsystem with OPTCD=J speci fied. ) 


e If the device is a 3800 Printing Subsystem and OPTCD=J is 
specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. (If OPTCD=J is not 
specified, the common printer channel program is used.) 


8 It attempts to join the current channel program to the 
preceding one (that is, chain schedule) by: 


~ Setting the ICB to not-complete 


- Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program 


= Changing the NOP CCW in the preceding channel program to 
a TIC CCH 


= Updating the SAM IOB prefix block to point to the end of 
raeeuoeRe channel program, using the CS instruction on 


® If the joining (the CS instruction) was successful, the 
routine returns control to the calling routine. 


e The routine tests the ICB for the present channel program to 
find whether the joining was successful or not. 


e If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of the 
channel by copying the channel program start address from 
the current ICB into the I0B, and uses the EXCP macro 
instruction to cause scheduling of the channel program. It 
then returns control to the calling routine. 
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End-of-Block Module IGGO19TW: Module IGGO19ITW attempts to join 


the 


present channel program to the last one in the chain of 


scheduled channel programs. The OPEN executor selects and loads 
this module if the user specifies the user~totaling option (that 


is,» 


if bit 6 is 1 in DCBOPTCD) for the data set and if the 


following condition exists: 


The 


The OPEN parameter list specifies Output and the DCB 
epece lies chained.channel program scheduling and magnetic 
ape 


module operates: as follows: 


It receives control from a PUT routine ition the routine 
finds that a buffer is ready to be scheduled, or from a 
WRITE routine at the conclusion of its processing. 


It issues a BALR instruction to the user-totaling save 
routine, IGGOI19AX, to place the user's total in the 
user-totaling save area, which is pointed to by the DEB. 


The routine determines the increment value and stores it in 
the ICB. 


The module attempts to join the channel program for the 
current buffer to the preceding channel program (that is, 
chain schedule) by: 

- Setting the ICB to not-complete. 


~ Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program. 


- Changing the NOP CCH in the preceding channel program to 


a TIC CCW 


- Updating: the SAM IOB prefix block to point to the end of 
the current channel program. 


- It determines whether the joining was successful by 
using a CS instruction on IOBCNOPA. 


- If the joining (the CS instruction) was successful, the 
routine returns control to the calling routine. 


- If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of 
the channel by copying the channel program start address 
from the current ICB into the IOB and uses the EXCP 
macro instruction to cause scheduling of the channel 
Brogren: It then returns control to the calling 
routine. 
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End-of-Block Routines for Direct-Access Storage 


For an output request, the end-of-block modules maintain the 
track balance and calculate the address of the record to be 

phat (that is, the CCHHR address on the direct-access storage 
evice). 


The DASD end-of-block modules (see Figure 9 on page 55) process 
the IOB passed to them by the caller. IOBs built by the DASD 
OPEN executor contain an IOB extension CIOBEX) with one or two 
CCNs and other data. The IOB is processed by first chaining it 
to a queue of active IOBs, then by constructing a real-address 
channel program that serves the IOB's request, and, finally, by 
disconnecting and posting the IOB. The DASD end-of-block 
modules chain the IOB to the active queue. (See "Start 170 
(SIO) Appendages™ for a description of the channel-program 
building process; see "Channel End Appendages and Abnormal End 
peoetee a” for a description of the disconnecting and posting 
process. 


A queue of IOBs is made active by storing the address of the 
queue's first and last IOBs in the interrupt control queue 
element CICQE), in fields ICQFIRST and ICQENDA, and issuing an 
EXCPVR SVC. The DCB contains the ICQE's address Cat DCBICQE or 
DCBIOBAD!). The ICQE is built by the DASD OPEN executor. 


The IOB in the sequential access method block (SAMB) is passed 
to EXCPVR. (Note: The IOB in the SAMB is not part of the active 
IOB queue.) The JOB in the SAMB is pointed to by the ICQE 
CICQIOBA). The SAMB is built by the DASD OPEN executor. 


The DASD end-of-block modules either chain the IOB passed to 
them to an active JOB queue, or issue an EXCPVR SVC. The 
compare-and-swap (CS) instruction is used to attempt to update 
ICQENDA with the address of the IOB. The CS instruction tests 
the high-order bit of ICQENDA CICQEXND). 


If ICQEXND is zero, the swap is successful: The active queue of 
IOBs is updated to include another IOB. The end-of-block module 
then returns to the caller. 


If ICQEXND is one, no active JOB queue exists and the swap 
fails. The IOB'ts address is put into ICQFIRST and ICQENDA, and 
an EXCPVR SVC is issued. The end-of-block module then returns 
to the caller. 


DASD end-of-block modules are loaded for all BSAM, BPAM, and 
QSAM direct-access processing, except for BFTEK=R processing 
(see "READ Module IGGO1LOBU") and for WRITE-load processing (that 
is, BDAM create processing). IGGO1LOTV is the end-of-block 
module for all processing except track overflow output. 

IGGO019T2 is loaded for track overflow output. 


i DCBICQE and DCBIOBAD are labels for the same DCB field. 
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Access Method Options Selections 

Input or update X 

INOUT or OUTIN X X X X 

Output X X X 
Track overflow X X 
LABEL=(€,,,IN) or X 


LABEL=(,,,0UT) ona 
DD statement? 


User totaling | X X 
Direct-access X X X X X X X X 
DASD End-of-Block Routines 

IGGO19AX4 AX AX 
IGGO19CT?,# CT 

IGGO19TV TV TV TV TV 

IGG019T2 T2 T2 


Figure 9. Module Selector-——DASD End-of-Block Routines 


Notes to Figure 9: 


2 When either LABEL=(,,,IN) and OPEN for INOUT or 
LABEL=(,,,0UT) and OPEN for OUTIN is specified, IGGO19SCT is 
reps in addition to one of the other end-of-block 
routines. 


This module is described in "Ordinary End-of-Block 
Routines." 


END-OF-BLOCK MODULE IGGO1LOTV: For an output request, module 
IGGO1LOTV computes a valid storage address (CCHHR) for the data 
record Cusing the track balance value and, if necessary, further 
allocated extents on the volume), and then attempts to chain an 
IOB to an active JOB queue. For an input request, module 
IGGO1LOTV attempts to chain an IOB to an active IOB queue. The 
OPEN executor selects and loads IGGO19STV when the DCB specifies: 


Direct-access storage 
Not track overflow output 

The module operates as follows: 

® It receives control from a GET or PUT routine that finds a 
buffer is ready to be scheduled, or from a READ or WRITE 
routine at the conclusion of its processing. 

e If the user specified the user-totaling option (that is, if 
bit 6 in DCBOPTCD is 1) for the data set, IGGO1LOTV issues a 
BALR instruction to the user-totaling save routine, 
IGGO19AX, to place the user's total in the user-totaling 
save area, which is pointed to by the DEB. 

For an output request: 

e It calculates the block length, using the overhead value for 


a last block on a track. (This value is found in the 
resident I/0 device table. The address of the table is in 
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the DCBCVTBL field.) It compares the calculated block 
length with the value in the DCBTRBAL field of the DCB. 


If the block length is equal to or less than the DCBTRBAL 
pues Mohit the module determines that the block fits on 
e track. 


If the block length exceeds the DCBTRBAL field value, the 
module calculates the next sequential track address and 
compares it with the end address of the current extent shown 
in the data extent block CDEB). 


If no end-of-extent condition exists, it determines that the 
block fits on the track. 


If an end-of-extent condition exists, it seeks a new extent 
in the DEB. 


If a new extent exists, it updates the DCBFDAD and the 
deh aia fields and determines that the block fits on the 
rack. 


If there is no further extent, an EOV condition exists. The 
module sets the DCBCIND1] field in the DCB and the CSW field 
in the IOB to show end-of-volume, and returns control to the 
PUT or WRITE routine without issuing an EXCP macro 
instruction. The EOV condition is eventually recognized and 
processed——in QSAM by the synchronizing routine and in BSAM 
by the CHECK routine. 


If the module determines that the block fits on the track, 
the module calculates the actual block length using the 
overhead value for a block that is not the last ona track. 
(This value is found in the resident I/0 device table.) It 
adjusts the value in the DCBTRBAL field by this amount and 
ett hae DCBFDAD field and the IOB extension field 


an input request: 


If more than one I0B is associated with the DCB, the module 
Ca) checks for a cylinder change in the IOBSEEK field in the 
next IOB by comparing it with the cylinder value in the 
DCBFDAD field in the DCB, and (b) copies the IOBSEEK field 
in the next IOB into the DCBFDAD field in the DCB. 


If only one IOB is associated with the DCB, the module (a) 
checks for a cylinder change by comparing the cylinder value 
in the IOBSEEK field in the IOB with the cylinder value in 
the DCBFDAD field in the DCB, and (b) copies the CCHHR 
portion of the DCBFDAD field in the DCB into the CCHHR 
portion of the IOBSEEK field in the IOB. 


an input request, and for an output request: 


If a change in cylinder value was found for an input 
request, or if the updated DCBFDAD value indicates record 1 
on track 0 for an output request, and in either case the 
cylinder value is on a page boundary Cevenly divisible by 
8), the DEBXFLG1 field in the DEB extension is checked for 
an MSS window processing request. If such processing is 
indicated, the ICBCHKAR macro is issued to invoke SVC 126, 
which will relinquish the processed window and acquire the 
next one. A GETMAIN for a l2-byte SVC 126 parameter list is 
issued before ICBCHKAR is issued. A related FREEMAIN is 
issued upon return from SVC 126. 


If the number of requests CICQNOQ) equals the maximum number 
of requests CICQMAXQ), it does the following; otherwise, it 
increases ICQNOQ@ by 1 and returns to the caller. 


It uses the compare and swap (CS) instruction to attempt to 


chain the IOB to the active IOB queue as the last IOB 
CICQENDA). If the swap is not successful, the IOB address 
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is placed in the ICQE CICQFIRST and ICQENDA), and an EXCPVR 
SVC is issued. 


After issuing the EXCPVR SVC Cor if the swap is successful), 
the module returns to the caller. 


End-of-Blicck Module IGG019T2: The track-overflow, end-of-block 
routine processes channel programs for output data sets whose 
blocks may overflow from one track onto another (see Figure 10). 
Such a block is written by a channel program consisting of a 
channel program segment for each track to be occupied by a 
segment of the block. The track-overflow, end~-of-block routine 
computes the address of each track written on; to progress from 
track to track (to continue writing successive segments of one 
block), the channel program built by the S310/pagefix appendage, 
re ata uses the search command with the multiple-track (M/T) 
mo e@. 


a = Block Length ts Less Than Track Balance 
(No Overflowing Segment) 


b = Block Length is Greater Than Track Balence — 
(First Segment Overflows Track) 


| 


L___ Data (Continued) 


¢ « Block Length is Greater Than Track Capacity 
(Several Overflowing Segments 


Data (Continuec 
Data (Continued 


Dato (Continued) 


Data (Continued 


Figure 10. Track-Overflow Records 





Module IGGO19T2 performs device-oriented processing when track 
overflow is permitted with an output data set. he OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Output, INOUT, or OUTIN 


and the DCB specifies: 


=} 


Track overflow 


The module operates as follows: 


It receives control from a PUT routine when the routine 
finds that a buffer is to be scheduled, or from a WRITE 
routine at the conclusion of its processing. 
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If the user specifies the user-totaling option for the data 
set, IGG019T2 issues a BALR instruction to the user-totaling 
save routine, IGGO19AX, to place the user's total in the 
user-totaling save area, which is pointed to by the DEB. 


It compares the block length with the space remaining on the 
track last written on. 


It initialices to zero the track avantiou data field of the 
IOB extension, IOBTRKOV. The address of the data block and 
the length of the entire block have been placed in IOBCCWl 
by the WRITE or PUT routine. 


If the entire block fits on this track, the module sets 
IOBLFST (that is, the length of the first or only overflow 
segment) to the length of the data block. The module next 
updates the track balance, and then attempts to add the IOB 
to the active IOB queue. 


If the updated MBBCCHHR (saved in the ICQE) indicates record 
l on track 0 of a cylinder on a page boundary (Cevenly 
divisible by 8), a test is made for MSS window processing. 
If such processing is indicated in the DEBXFLG1 field of the 
DEB extension, the ICBCHKAR macro is issued to invoke SVC 
126, which will relinquish the processed window and acquire 
the next one. A GETMAIN for a 12-byte SVC 126 parameter 
list is issued before ICBCHKAR is issued. A related 
FREEMAIN is issued upon return from SVC 126. 


If at least one data byte Cincluding the key, if any) fits 
on this track, the module sets [OBLFST to the key length 
plus the data length of the segment of the block which fits 
on the track and tests for another track in the same extent. 


If the next track is in this extent, the module compares the 
remaining block length with the track capacity. 


Tests are made to determine if MSS window processing is 
needed. If the updated MBBCCHHR Csaved in the ICQE) 
indicates record 1 on track 0 of a cylinder on a page 
boundary Cevenly divisible by 8), a test is made for MSS 
window processing. If such processing is indicated in the 
DEBXFLG1 field of the DEB extension, the ICBCHKAR macro is 
issued to invoke SVC 126, which will relinquish the 
Processed window and acquire the next one. A GETMAIN for a 
l2-byte SVC 126 parameter list is issued upon return from 
SVC 126. The module then proceeds as it does when at least 
one byte fits on the track. 


If the remainder of the block exceeds the track capacity, 
the module sets IOBLMID (that is, the length of the middle 
segment) to the track capacity. The module next increases 
TOBNMID (that is, the number of middle segments) by 1 and 
increases IOBNINCL (that is, number of segments written on 
the cylinder that contains the first segment) by 1 if this 
segment is to be written on the same cylinder as the first 
segment. Next, the module determines whether the next track 
is in this extent. 


If the remainder of the block is less than the track 
capacity, the module sets IOBLLST (that is, the length of 
the last overflow segment) to the data length of the last 
segment. The module next increases IOBNINCL if the last 
segment is to be written on the cylinder that contains the 
first segment. Finally, the module updates track balance 
and attempts to add the IOB to the active IOB queue. 


If the next track is not in this extent, the module sets the 
CCW command code in IGBCCW1 to "erase™ (X*01') and attempts 
to chain the IOB to the active IOB queue. After either 
successfully chaining the IOB or issuing an EXCPVR SVC, the 
module waits for the requests's completion Cand for the 
completion of all previous IOBs on the active IOB queue). 
Completion is posted in the SAMB IOB's ECB, which is located 
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at ICQECB. This process erases all unused data tracks at 
the end of the extent: The track overflow record is too 
long and cannot fit in the current extent, but must be 
written in the next extent. After the ICQECB is posted 
(that is, the queue of IOBs is empty), the module tests for 
another extent. 


® If there is another allocated extent on this volume, the 
module reconstructs the IOBTRKOV field in the IOB extension 
= proceesane as it does when at least one byte fits ona 
rack. 


® If there is no other allocated extent on this volume, an 
end-of-volume. condition exists. The module sets the 
DCBCIND1 field in the DCB and the CSW field in the IOB to 
show end-of-volume, and returns control to the PUT or the 
WRITE routine without attempting to add to the active IOB 
queue. The EOV condition is eventually recognized and 
processed-——in QSAM by the synchronizing routine, and in BSAM 
by the CHECK routine. . 


SYNCHRONIZING-AND-ERROR-PROCESSING ROUTINES 


A synchronizing-and-error-processing routine (1) synchronizes 
execution of the processing program with execution of the 
channel programs and (2) performs error processing to permit 
continued access to the data set after an error is encountered 
during the execution of a channel program. An error-processing 
routine performs only the latter function. 


There are five synchronizing-and-error-processing routines. 
(See Figure 11 on page 60.) These routines: 


e Are unique to QSAM 

e Both synchronize and process errors 

e Receive control from a GET or a PUT routine 
e Are pointed to by an address in the DCB 


There are three error-processing routines. (See Figure 12 on 
page 67.) These routines: 


® Are shared by QSAM and BSAM 
® Only process errors 
® May be either synchronous or asynchronous 


The track-overflow, 3203 and 3211 Printer retry error-processing 
routines are asynchronous. They receive control by being 
scheduled by an abnormal-end appendage. The SYSIN/SYSOUT 
error-processing routine is synchronous and receives control 
directly from a GET or PUT routine (QSAM) or from a CHECK 
routine BSAM). 


In some cases the QSAM synchronizing routines issue an SVC 55 
CEOV) to distinguish between permanent error and end-of-volume 
conditions. For a permanent error, the EOV routine returns 
control to the synchronizing routine, which in turn passes 
control to the user's SYNAD routine. If the SYNAD routine 
returns, the synchronizing routine again invokes EOY to 
implement error options. For accept and skip, control returns 
once more to the synchronizing routine. It now operates as when 
it is first entered. 
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For an end-of-volume condition Cunit exception), EOV takes one 
of the following actions: 


1. It may return to the synchronizing routine with a new DEB, 
after restarting channel programs. The synchronizing 
routine then operates as when it is first entered. A new 
volume is being processed, possibly because of a data set 
concatenation with like or unlike attributes. 


2. It may exit to the user's EODAD routine if the condition 
should be treated as end-of-file. 


a che will ABEND if unable to take the appropriate action 
above. 


QSAM synchronizing routines have a standardized register usage 
allowing them to be used interchangeably by GET/PUT routines. 
This register usage is shown below: 


Registers Entry Value Exit Value 
0-1 N/A Not restored 
DCB pointer Unchanged or restored 


Previous IOB-8 Cor New IOB-8 (Cor ICB)? 
ICB) 





4 N/A Unchanged or restored 

5 N/A New buffer address 

6 N/A Unchanged or restored 

7 READ or WRITE CCW Unchanged or restored 
Offset 

8 N/A Caller's base address* 

9-12 User's registers Unchanged or restored 

13 Save area® Unchanged or restored 

140 oi ap return Unchanged or restored 

15 Entry point address Not restored 

Notes: 


a This value also stored in DCBIOBA. 
2 Obtained from save area. 


3 Registers 15-8 must be stored beginning at offset 24 
SSacAmen ye This offset is not the standard one used by the 
system. 


The routines described in Figure 11 are unique to QSAM. One of 
these routines gains control when a GET or a PUT routine finds 
that it needs a new buffer. Figure 11 lists the routines 
available and the conditions that cause a particular routine to 
be used. The OPEN executor selects one of the routines, loads 
it, and puts its address into the DCBGERR/PERR field. 
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Access Method Options > Selections 


GET X X X X 
PUT | _ X 
Input, Readback _ X 
Output — | X 
Update X 
Variable-length record format 

Spanned records 

Locate operating mode 


* or DATA specified on DD 
statement 


<x KK KM OK 


Modules 

IGGO19AF 7 AF 

IGGO019AQ AQ AQ 
IGGO19AR AR 

IGGO019BQ BQ 


Figure 11. Module Selector-—QSAM 
Synchronizing-~and-Error-Processing Modules 


Note to Figure 11: 


i If SYSOUT is specified on the DD statement, none of the 
synchronizing and error-processing modules are required. 
he necessary routines are contained within the 
compatibility interface processing module, IGGO]LODJ (see 
Figure 1 on page 6). 


Synchronizing Module IGGO19SAF (Update): Module IGGOL9AF finds 
the next buffer and ensures that it has been refilled. Ifa 
unit status prevented refilling the buffer, the module processes 
the pending channel programs according to whether they are 
empty-and-refill or refill-only channel programs. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Update 
and the DCB specifies: 
GET 
The module operates as follows if no error occurred: 


e It receives control when the update GET routine finds that a 
new buffer is needed. It also receives control after the 
force-end-of-volume CFEOV) macro instruction is encountered 
in a processing program, once from the update GET routine 
(when the FEOV routine schedules the last buffer) and once 
directly from the FEQV routine (when it awaits execution of 
the scheduled buffers. ) 


° If the next buffer has been refilled, the module returns 
control to the update GET routine. 
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If the channel program for the next buffer has not yet 
completed processing, the module issues a WAIT macro 
instruction. 


The module operates as follows if an end-of-volume condition is 
encountered: 


It receives control when the update GET routine finds that a 
new buffer is needed or when the FEOV routine awaits 
execution of the scheduled buffers. 


If the channel program for the next buffer encountered an 
end-of-volume condition, or if this module has control 
because of an FEOV macro instruction, the module finds the 
IOBs flagged for output. It then turns on the write-only 
flag and schedules the IOB for processing by means of an 
EXCPVR macro instruction. 


When all IOBs have been processed, or if none are pending, 
the module passes control to the EOV routine by way of an 

SVC 55 instruction. If this module has control because of 
an FEOV macro instruction, control returns to the routine 

that passed control. 


If a permanent error is encountered for a write-only I0OB 
scheduled for an end-of-volume condition or for an FEOV 
macro instruction, control passes to the SYNAD routine, if 
ane es present. The SYNAD routine returns control to this 
module. 


The module then processes the error option as follows: 
Accept or Skip option: The pending IOBs flagged for 
output are rescheduled for execution using an EXCPVR 
macro instructions. 


Terminate option: Control passes to the EOV routine to 
request an ABEND macro instruction. 


The module operates as follows if a permanent error was 
encountered: 


It receives control when the update GET routine finds a new 
buffer is needed. 


If the channel program for the next buffer encountered a 
permanent error and a SYNAD routine is present, the module 
passes control to the SYNAD routine. 


If control returns from the SYNAD routine, or if there is no 
SYNAD routine, the module processes the error option in the 
following manner: 


Accept Option: If the error occurred in the empty 
portion of a channel program, the module resets the IOB 
to indicate read-only and issues an EXCPVR macro 
instruction for it and all following IOBs. 


If the error occurred in the refill portion of a channel 
program, the module posts the current IOB as complete 
without error and issues an EXCPVR macro instruction for 
all the IOBs except the present one. 


The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Skip Option: If the error occurred in the empty portion 
of a channel program, the module operates as it does for 
the accept option. 


If the error occurred in the refill portion of a channel 


program, the module issues an EXCPVR macro instruction 
for all IOBs. 
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The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Terminate Option: If the error occurred in the empty 
portion of a channel program, the module passes control 
to the ABEND routine. 


If the error occurred in the refill portion of a channel 
program, the module finds the end of the empty portion 
of any pending empty-and-refill channel programs, and 
issues an EXCPVR macro instruction for these empty 
channel programs. On execution of all the channel 
programs, the module passes control to the EOV routine 
to request an ABEND. 


Synchronizing Module IGG019AQ (Input): Module IGGO19AQ finds 
the next input buffer, determines its status, and passes a full 
buffer to the GET routine. If ASCII is used, the entire input 
buffer is translated from ASCII to EBCDIC. If ISO/ANSI/FIPS 
spanned record format (DS/DBS) is used, the 5-byte ISO/ANSI/FIPS 
segment control word (SCW) is converted to the IBM 4-byte 
segment descriptor word (SDW), which leaves an unused byte at 
the beginning of each segment. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


INPUT or RDBACK 
or, 

INPUT for SYSIN (% or DATA specified on the DD statement) 
and the DCB specifies: 

GET 
The module operates as follows for SYSIN data sets: 


e It receives control when the SAM subsystem interface 
CSAM-SI), QSAM processing module IGGO19DJ, detects an 
end-of-data condition. 


® It loads the DCB address into register 1 and issues an EOV 
SVC 55 instruction. Control is returned to this module only 
oe SYSIN data set is concatenated to another input data 
set. 


e If control is returned to this module, the EOV close bit is 
set in the DCBOFLGS field. A test is made to determine if 
the unlike attribute bit CDCBOFLGS) is set. If it is, 
control is returned to the processing program. If not, a 
branch is taken to the GET routine to reschedule the last 
GET request before returning to the processing program. 


If a SYSIN data set was not specified, the module operates as 
follows: 


e It receives control when a GET routine determines that a new 
buffer is needed. : 


$ It finds the next IOB and tests the status of the channel 
program associated with that IOB. 


8 If the channel program has not yet completed processing, the 
module issues a WAIT macro instruction. 


e If the channel program has been executed normally, the 
module uses XLATE if necessary to convert ASCII records to 
EBCDIC, then updates the DCBIOBA field to point to this IOB, 
and returns control to the GET routine. If format-D records 
are being read, the record descriptor words are first 
converted from decimal to binary code. 
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e If the channel program has been completed normally, and if 
the buffer contains a DOS checkpoint record, tape files 
only, the module returns control to the GET routine. 


e If an error occurred during the execution of the channel 
program, the module issues an SVC 55 instruction to pass 
control to the EOV routine. EOV returns with a new DEB only 
if another volume is allocated to the data set or if another 
input data set is concatenated with it. In that case, EOV 
has rescheduled the purged channel programs. If EOV returns 
with a nonzero value in register 15, the DEB has not been 
changed and the SYNAD routine is to be entered. 


Synchronizing Module IGGO19AR (Output): Module IGGO19AR finds 
the next output buffer, determines its status, and passes an 
empty buffer to the PUT routine. The OPEN executor selects and 
loads this module if the OPEN parameter list specifies: 


Output 
and the DCB specifies: 
PUT 
The module operates as follows: 


e It receives control when a PUT routine determines that a new 
buffer is needed. 


e It finds the next IOB and tests the status of the channel 
Program associated with that IOB. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


e If the channel program has been executed normally, the 
module updates the DCBIOBA field to point to this IOB and 
returns control to the PUT routine. 


® If the output device is a 3203 or 3211 Printer and three or 
more buffers are being used, the synchronizing module waits 
for two channel. programs to be completed before updating the 
DCBIOBA field. 


e If an error occurred during the execution of the channel 
program, the module issues an SVC 55 instruction to pass 
control to the EOV routine. EQV returns with a new DEB only 
if it is able to allocate another extent or volume to the 
data set. In that case, E0V has rescheduled the purged 
channel programs. If EOV returns with a nonzero value in 
register 15, the DEB has not been changed and the SYNAD 
routine is to be entered. 


Synchronizing Medule Module IGG019BQ (Update): Module IGG019BQ 
finds the next buffer and ensures that it has been refilled. If 
a unit status prevented refilling of the buffer, the module 
processes the pending channel programs according to whether they 
are empty-and-refill or refill-only requests. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 

Update 

Locate operating mode 
and the DCB specifies: 

GET 

Variable-length spanned (blocked or unblocked) record format 


The module operates as follows if no error occurred: 
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It receives control when the update GET routine finds that a 
new buffer is needed. It also receives control after an 
FEOV macro instruction is encountered in a processing 
program, once from the update GET routine (when the FEOV 


routine schedules the last buffer) and once directly from 


the FEOV routine (when it awaits execution of the scheduled 
buffers). 


If the next buffer has been refilled, the module returns 
control to the update GET routine. 


If the channel program for the next buffer has not yet 
executed, the module awaits its execution. 


The module operates as follows if an EOV condition is 
encountered: 


It receives control when the update GET routine finds that a 
new buffer is needed or when the FEOV routine awaits 
execution of the scheduled buffers. 


If the next IOB encountered an EOV condition, the module 
tests whether assembling or updating of a spanned record is 
in process. 


If updating is in process, the module delays the normal EOV 
processing by turning off the error flags in the DCB and 
then returns control to the update GET routine. 


If assembling is in process, the module sets the spanned 
record flag in the IOB and continues to the next step. 


If assembling is in process or if this module has control 
because of an FEOV macro instruction, the module finds the 
IOBs flagged for output. It then sets the write-only flag 
in the IOB and schedules the empty channel programs for 
execution by means of an EXCPVR macro instruction. 


If all empty channel programs have been executed, or if none 
are pending, the module issues an SVC 55 instruction. If 
this module has control because of an FEOV macro 

ene uote? control returns to the routine that passed 
contro 


If a permanent error is encountered during execution of 
empty channel programs for an EOQV condition or for an FEOV 
macro instruction, control passes to a SYNAD routine if one 
eee The SYNAD routine returns control to this 
module. 


The module then processes the error option as follows: 


Accept or Skip: The pending empty channel programs are 
rescheduled for execution using EXCPVR macro 


instructions. 
Terminate: Control passes to the abend routine. 


On return of control from the EOV routine the module tests 
whether assembling of a spanned record is in process. If i 
is being processed, the module turns off the spanned-record 
see ah the IOB and returns control to the update GET 
routine. 


The module operates as follows if a permanent error is 
encountered: 


It receives control when the update GET routine finds that a 
new buffer is needed. 


If the channel program for the next buffer encountered a 
permanent error and a SYNAD routine is present, the module 
passes control to the SYNAD routine. 
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e If control returns from the SYNAD routine, or if there is no 
SYNAD routine, the module processes the error option in the 
following manner: 


Accept: If the error occurred in the empty portion of a 
channel program, the module sets the IOB's read-only 
flag and issues an EXCPVR macro instruction for it and 
all following IOBs. 


If the error occurred in the refill portion of a channel 
program, the module posts the current IOB as complete 
without error and issues an EXCPVR macro instruction, 
which reestablishes all the IOBs on an active queue 
except the present one. 


The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Skip: If the error occurred in the empty portion of a 
channel program, the module operates as it does for the 
accept option. 


If the error occurred in the refill portion of a channel 
program, the module treats this as a RELSE condition and 
issues an EXCPVR macro instruction, which restarts all 
IOBs on an active queue. 


The module ensures refilling of the buffer associated 
with the first I0B and then returns control to the 
update GET routine. 


Terminate: If the error option occurred in the empty 
portion of a channel program, the module passes control 
to the ABEND routine. 


If the error occurred in the refill portion of a channel 
program, the module sets the IOB's write-only flag and 
issues an EXCPYR macro instruction for these empty 
channel programs. On the execution of all the channel 
a on the module passes control to the ABEND 
routine. 


SYSIN/SYSOUT Synchronous~Error-Processing Module IGGO19AH: 
Module IGGO19AH is used in both BSAM and QSAM. It processes 
permanent error conditions detected during the processing of 
requests for a SYSIN/SYSOUT data set. This routine is loaded by 
the SAM-SI GET or PUT routine or by a CHECK module when the 
error is detected, and is entered with a BALR instruction. When 
epee returns control to the calling program, the module is 
elete 


The module contains an exit routine that is entered from 
SYNADAF. This routine formats the SYNADAF message. The routine 
is entered by SYNCH and its address is found in the SVC exit 
list. It returns control to SYNADAF. 


The module also contains a SYNAD control routine. Upon entry, 
it first checks to see if the user has provided the address of a 
SYNAD routine in the DCB. If no routine is specified, control 
is returned to the calling routine (QSAM EROPT=ACC or SKP) or 
issues an ABEND (BSAM or QSAM EROPT=ABE). 


If a SYNAD routine is specified, IGGO19AH operates as follows: 


e The entry point to the SYNADAF exit is stored in the SVC 
exit list. 


° A dummy IOB is formatted. Parameter registers 0 and 1 are 
loaded with the IOB address (QSAM) or the DECB address 
€BSAM), the DCB address, and error flags. 

e The user's registers are saved in a new save area which is 
obtained with a GETMAIN macro instruction. 
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® The current registers are saved in the user's save area and 
the user's registers are loaded and the SYNAD routine is 
entered with a BALR instruction. 


If DCB EROPT is ACC or SKP, the user SYNAD routine returns 
control to IGGO19AH, the register save sequence is reversed, the 
new save area is freed, and control is returned to the calling 
routine. If EROPT is ABE, problem determination message IEC020 
is issued followed by a 001 ABEND. 


See Figure 12 for error-processing module selection. 


Access Method Options Modules 
3203-4 or 3211 Printer . IGGOLOFS 
*%, DATA, or SYSOUT specified on DD IGGO19AH 
statement 


Figure 12. Module Peserhon “epnernoceseaue Modules 


IBM 3211 Printer Asynchronous-Error~Processing La IGGO19FS 
(Print Line Buffer Error—Retry): Module IGGO19FS 1 
device-dependent and is scheduled asynchronously By the 3211 
abnormal-end appendage CIGGO1LOFR, IGGO19CU, or IGGO019V6). The 
module retries operations that result in print line buffer 
parity errors or UCS buffer parity errors, whenever possible. 
When an operation cannot be retried, the printer is reset and 
control is returned to the calling program. 


The module operates as follows: 


@ It initializes registers to point to the DCB, ECB, and IOB. 
It then examines sense bytes in the IOB to determine if one 
of the oon conditions for which a retry is possible 
occurre 


® If a UCS buffer parity error is indicated (ECB posted in 
error with an X*41" or X'G4! and the command retry bit is on 
in sense byte 1), the UCS image ID is obtained from the UCB 
located in SYS1.IMAGELIB and loaded into storage. (Failure 
to locate the UCS image in the SYS1.IMAGELIB causes a skip 
to channel 0 command to be issued. This resets the printer 
and the module returns control to the calling program.) An 
IOB and channel program to load the UCS image into the UCS.- 
buffer on the 3211 are constructed and executed. If a 
permanent I/0 error occurs during an attempt to load the UCS 
buffer, a skip to channel 9 command is issued to reset the 
printer. The UCS field in the UCB is also set to 0 and 
control is returned to the calling program. If the UCS 
buffer is loaded successfully, a check is made to determine 
the access method (BSAM or QSAM) being used. 


6 Vihen QSAM is being used, a check is made to determine if 
three or more buffers were specified in the BUFNO field of 
the DCB macro instruction. (This is a condition necessary 
to retry a print line.) After either UCS buffer parity 
errors or print line buffer parity errors, the type of 
scheduling is determined. For normal scheduling, the IOB 
associated with the failing print line is located and the 
channel program for that IOB is reissued once. If the 
channel program is not successful, the next IOB is 
rescheduled if necessary and control is returned to the 
problem program, as though no error occurred. If the 
channel program is not successful, a skip to channel 0 
command is issued to reset the control unit and the module 
returns control to the calling program. For chained channel 
scheduling, the portion of the channel program associated 
with the failing print line is reissued. If it is 
successful, a check is made to determine if another chain 
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needs to be started before the return to the problem 
program. If the retry is unsuccessful, a skip to channel 0 
command is issued and the module returns control to the 
calling program. 


@ For BSAM, or for QSAM with fewer than three buffers 
specified, a skip to channel 0 command is issued and the 
module returns control to the calling program. 


See Figure 12 on page 67 for error-processing module selection. 


Appendages are access method routines that receive control from 
and return control to the I/0 supervisor. They operate in the 
pena ee state. The same appendages are used in QSAM as in 


An appendage receives control from the I/0 supervisor and tests 
and may alter the channel status word (CIOBCSN). The I/ 
supervisor uses the IOBCSW to post the event control block 
CECB). If the SIO appendage receives control from the I70 
supervisor before the latter starts execution of the channel 
program, it may alter channel commands just before channel 
program execution. The relationship of the I/0 supervisor and 
the appendages is shown in Diagram F. 


The I40 supervisor permits an appendage to gain control at 


certain exit points. At that time, the 1/0 supervisor refers to 
the entry associated with that exit in the appendage vector 
table, whose address is in the data extent block (DEB). If an 
entry contains the address of an appendage, control passes to 
it; otherwise, control remains with the I/0 supervisor. 


The I/0 supervisor exits where appendages receive control are: 
@ End-of-extent 
@ S10 


® Pagefix Coffset 4 into the SIO appendage if the DEB 
indicates a pagefix appendage exists) 


e Channel end 
° PCI 
e Abnormal end 


The I/0 supervisor unconditionally schedules the routine at the 
address associated with the exit in the appendage vector table. 
If no appendage is present, the entry points to an instruction 

that causes immediate return to the I/0 supervisor. 


When a VIO data set is processed, the I/0 supervisor passes 
control to the VIO interface routine CIDDNIAPP). The appendages 
then receive control from the VIO routine with the same 
interfaces as with the I/0 supervisor. When some VIO data sets 
are processed (that is, BSAM or QSAM, READ or WRITE, not track 
overflow, not update, and not BSAM create-BDAM data sets), the 
appendages may be loaded but never get control. A special VIO 
routine CIDDNISVR) simulates the I/0 functions and all the 
required actions of the appendages. For more details about VIO 
processing and modules, see VIO Logic. 


Appendages differ from other sequential access method routines 
that are loaded by the OPEN executor into processing program 
virtual storage. They differ because they operate asychronously 
with the processing program. The events that cause appendages 
to gain control depend on the progress of the channel program, 
not on the progress of the processing program. Other appendages 
operate by running enabled under an SRB. 
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The OPEN executor selects and loads all the appendages to be 
used with a DCB. No appendage, one appendage, or several 
appendages may be used with one DCB. The OPEN executor places 
the addresses of the required appendages into the various fields 
of the appendage vector table. Figure 13 on page 71 lists the 
appendages and the conditions that cause the different 
appendages to be used. The appendages are grouped according to 
the condition detected by the I/0 supervisor before control is 
passed to the appendage. Note that some appendages have entry 
points for more than one of the conditions checked by the I/0 


supervisor. 


How to Read Compendiums 


The compendiums Cor hierarchic tables) used to illustrate the 

following appendages do not usually show all the exits and 

entrances to a given module. A compendium depicts the flow of 

ra among subroutines, that relates to a particular 
unction. 


Each block in a compendium is associated with a subroutine name. 
The blocks are nested Cindented) to show the sequence of calls. 
For example, in the following diagram, subroutine "A" at some 
point in its processing calls subroutine "B," and subroutine bad + bid 
at some point in its processing calls subroutine "C." Unless 
otherwise indicated by an exit indicator, the called subroutines 
always return control to the calling subroutines in the sequence 
in which they are called. 





1. Subroutine A 






2. Subroutine B 


3. Subroutine C 
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In many instances, a call to a subroutine is conditional. In 
these cases, the condition that must be met is shown in the 
block that represents the calling subroutine. Dotted lines 
delineate the calls affected by a given condition. This is 
illustrated in the following example: 









1. Subroutine X 


Invalid Address 
2. Subroutine Y 










3. Subroutine Z 


In this example, subroutine "Y" is called when an invalid 
address is detected, and subroutine "Z" is always called. In 
either case, subroutine "Y¥Y" and "Z" always return control to 
subroutine ™X.* 


Each subroutine is numbered to key it to the extended 
description on the page that faces the diagram. The extended 
description provides details about the conditions that exist 
when a call is made and about the general processing that is 
performed by the subroutines. 


Start I70 (SIO) Appendages 


Start I70 (SIO) appendages, if present, gain processor control 
when the start I/0 subroutine of the EXCP supervisor reaches the 
start 1/0 appendage exit. The following appendages set channel 
program entries: 


e IGGO19CL. This appendage causes the next line to print at 
the top of a new page if a printer overflow condition was 
encountered in the execution of the last channel program. 


6 IGGO19BX. This is the SIO/pagefix appendage. It checks the 
validity of 1/0 requests, and, during pagefix processing, it 
passes control to IGGO1LOBY. It is loaded for all 
direct-access processing except BDAM create. 


e IGGOLOBY. This module processes pagefix requests passed to 
it by IGGO1OBX. It builds real-address programs and 
maintains pagefix lists. It is loaded for all direct-access 
processing except BDAM create. 


All control blocks and data areas used by the I/0 
interruption supervisor and appendage modules must be mapped 
into real storage. If they are not and the I/0 interruption 
supervisor encounters a page exception, the task that 
requested the I/0 is abnormally terminated. The EXCP 
portion of the I/0 supervisor determines that certain 
control blocks and data areas will be referred to during 
later processing. 


‘ 
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Access Method Options Selections 

Input, INOUT, OUTIN X xX X xX 
READBACK X 

Create BDAM X 

RECFM=FB X 

RECFM=V X X 
RECFM=VS 

DASD X 

Printer X 

Chained scheduling X xX 

3211 X 
Magnetic tape COPTCD=H) X X 
V=R X 
Appendages entered from Pagefix Exit: 

IGGO19BX? BX 

IGGO19BY?! BY 

Appendages entered from SIO Exit: 

IGGO19BX? BX 

IGGO19OBY? BY 

IGGO19CL CL 

souene ages entered from Channel End 


IGGO1LOBT BT 

1TGG019BZ* BZ 

IGGO19CI CI 

IGGO19CJ CJ 

IGG019CU CU 

IGGO1LIEI EI 
IGGO19EJ EJ 
IGG019V62 V6 
Appendages entered from PCI Exit: 

IGGO019V6 V6 

eeu cuneges entered from Abnormal End 

IGG019BZ2 BZ 


ee a 


Figure 13 (Part 1 of 2). Module Selector—Appendages 
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Access Method Options - Selections 


IGG019CU2 


IGGO19EI> 
IGGO19EJS 
IGGO19FR 

IGGO019V6? 


CU 


EJ 
FR 
V6 


Figure 13 (Part 2 of 2). Module Selector—Appendages 
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Notes to Figure 13: 
i The module has multiple entry points. The module is 
described in "Start I/0 (SIO) Appendages." 


The module has multiple entry points. The module is 
described in "Program Controlled Interruption Appendages."® 


The module has multiple entry points. The module is 
described in "Channel-End Appendages." 


Appendage IGGO1L9OCL (SIO“"PRTOV): Appendage IGGOLICL causes a 
skip to the top of a new page with the first channel program 
following a printer overflow condition. The OPEN executor 
selects and loads this appendage for use as the SIO appendage if 
the DCB specifies: 


Printer 
The appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


® The appendage tests the IOB to determine whether a PRTOV 
macro instruction was issued with this PUT or WRITE macro 
instruction. 


° If a PRTOV macro instruction was not issued, the appendage 
returns control to the EXCP supervisor immediately. 


e If the PRTOV macro instruction was issued, the appendage 
resets the PRTOV bit in the IOB and tests the DCBIFLGS field 
to pea Rig whether a printer-overflow condition has 
occurred. 


e If printer-overflow has not occurred, the appendage returns 
control to the EXCP supervisor. 


e If printer-overflow has occurred, the appendage resets the 
DCBIFLGS field, inserts the "skip-to-1" command byte into 
the channel program, updates the IOB channel program 
start-address field and returns control to the EXCP 
supervisor. 
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EXCPVR Processing Appendages 


Modules IGG019BX and IGGO1OBY are the DASD SI0O/pagefix 
appendage. They operate in conjunction with the DASD 
channel-end/abnormal-end appendage (IGG019BZ) and the DASD 
end-of-block modules (CIGGO19TV and IGG019T2) to process JOBs on 
eecee IOB queue. The active IOB queue is addressed by the 
I e 


An end-of-block module forms the active IOB queue, addressed by 
the ICQE, and issues an EXCPVR SVC. For QSAM, ICQMAX@ is set to 
BUFNO minus 1 with a limit of 29. The end-of-block module 
passes a group of requests to EXCPVR by queuing the requests 
until it gets the number of requests equal to TCQMAXQ plus l. 
This ensures that the requests are always passed in groups. The 
eeenageoag tt passes control to the pagefix appendage entry 

° 


Module IGGO19BX passes control to module IGGO19BY which 
constructs a channel program in the SAMB. The channel program 
serves the requests that are represented by as many IOBs on the 
active IOB queue as possible. Module IGGO19BY also builds a 
pagefix list in the SAMB for the user buffers referred to by the 
channel program. 


The address of the pagefix list is returned to the EXCPVR 
processor, which fixes the pages in the list (that is, makes the 
pages in virtual storage temporarily not movable). The EXCPVR 
processor then passes control to the SIO appendage entry of 
IGGO19BX. The SIO appendage completes construction of the 
channel program by replacing the virtual addresses of buffers in 
the CCNs indirect address word (IDAW) lists built in the SAMB. 
When the SIO appendage returns to the EXCPVR processor, the 
real-address channel program is executed. The EXCPVR processor 
returns to the caller, an end-of-block module. 


While the channel program is running, more IOBs might be added 

to the end of the active IOB queue (addressed by the ICQE) as a 

Abeta Oa additional READ, WRITE, GET, and PUT requests against 
e 4 


When channel end occurs for the channel program, the EXCPVR 

processor passes control to the channel-end appendage entry of 

IGGO19BZ. The channel-end appendage posts the ECBs for those 

IOBs on the active IOB queue whose requests were satisfied by 

rae channel program, and then removes those IOBs from the active 
queue. 


If no errors were encountered and there are no more IOBs on the 
active IOB queue, the channel-end appendage sets the 
EXCPVR-required flag CICQEXND, the high-order bit of ICQENDA in 
the ICQE) and returns normally to the EXCPVR processor. The 
EXCPVR processor terminates processing for the EXCPVR SVC, and 
then returns to the caller. 


If there are more IOBs on the active IOB queve, the channel end 
appendage takes the "re-EXCPVR® return to the EXCPVR processor. 
The EXCPVR processor passes control to the SIO appendage 
CIGGO19BX), which processes the IOBs that remain on the active 
IO0B queue. (The pagefix appendage is not entered for 
"re-EXCPVR"™ processing. ) 


For a "re-EXCPVR®™ entry, the SIO appendage builds a new channel 
program to serve as many of the IOBs on the active IOB queue as 
possible, and builds a pagefix list for the user buffers 
referred to by the channel program. The pagefix list is 
compared to the previous list, and the system pagefix and 
pagefree routine is called as needed: If the two pagefix lists 
contain only one entry and the entries are identical, no action 
is taken; otherwise, the old pagefix list is pagefreed, and the 
new pagefix list is pagefixed. IDAW lists are built for the new 
channel program. When the SIO appendage returns to the EXCPVR 
processor, the channel program is executed. 
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The process of building a channel program to serve some Cor all) 

of the IOBs, executing the channel program, posting and freeing 

the IOBs served, and building a new channel program to serve 

additional IOBs might continue indefinitely. The process 

continues for as long as the user's program schedules IOBs (that 

ae ecaen to the end of the active IOB queue Caddressed by 
e , 


If the active IOB queue empties, an EXCPVR SVC starts the 


process again when the user's program makes a new request (that 
is, issues a READ, WRITE, GET, or PUT macro). 
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Pagefix Appendage (PGFXAPP): This compendium illustrates the pagefix appendage. 







1 PGFXAPP 
Return if EXCP 


ABEND 400 










3 CHKPURGE 


Invalid EXCPVR 






S$ CKVIORPS 

6 SEGTEST 

7 CPBLD 
See SIOAPP 


8 Determine 
Pagefix List 


9 Return 
Pagefix List 
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Appendage IGG019BX/IGGO19BY 
(SIO/Pagefix ) 


The OPEN executor selects and loads this 
appendage for use as the SIO appendage 
if the DOB specifies direct-access 
processing. 


Module IGGO19BX processes SIO requests. 
If the pagefix entry is used by the 
calling program, module IGGO19BX passes 
control to module IGGO1L9OBY, which 
completes the pagefix processing. 

Module IGGOl19BX processes the SIO 
requests. Note that these modules share 
several common subroutines during SIO 
and pagefix request processing. 


The pagefix appendage (CPGFXAPP) operates 
as follows: 


1. If flag RQE114 is _ on, EXCPVR SVC was 
issued. If flag RQE114 is off, an 
EXCP SVC was issued and is ignored 
by this appendage. Registers 10 and 
11 are set to zero to indicate, on 
return to EXCP, that no pagefix list 
needs to be established. 


2. If the DEBXSAMB field value is equal 
to the SAMBREG value, the EXCPVR 
request is against the SAMB IOB. If 
the SAMB IOB is not referred to by 
the EXCPVR request, the CALLRTM 
peeke is issued (with abend code 


3. The CHKPURGE routine is called. 


a. The caller's protect key is 
saved, if necessary, in the 
SAMB, and is valid until the 
next EXCPYR SVC is issued. 


b. If this is an invalid EXCPVR 
SVC, and it was issued before a 
previous one completed, the 
CALLRIM macro is issued (with 
abend code 172). 


c. The flag, SAMPSTNX, is set off 
if a POINT or WRITE was issued. 


d. The flag, SAMSMF, is set on if 
the SMF EXCP count is to be 
updated. 


9. 
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e. If a purged re-EXCPVR request 
must be re~created, CHKPURGE 
determines what, if any 
modifications to the SAMB and 
the first IOB in the active IOB 
queue are required. 


The IKNIT routine is called and 
initializes SAMB fields and flags, 
and builds a new channel program. 


a. For buffer DASD, builds prefix 
for buffered DASD. 


b. For nonbuffered DASD, builds 
standard prefix. 


The CKVIORPS routine is called to 
point the IOB to the correct CCW for 
RPS and non-RPS DASD. 


The SEGTEST routine is called to 
test if a segment process is 
beginning or ending. If so, SAMB 
fields are adjusted for this and 
control is returned to the pagefix 
appendage CPGFXAPP). 


If an end-of-data condition has not 
been detected (flag SAMPSTNX is 
zero) or if the data set is open for 
update processing, the CPBLD routine 
is called to satisfy I/0 requests on 
the ICQE. 


The address of the pagefix list and 
its size are determined and placed 
in registers 10 and ll. 


a. If the CPBLD routine was called, 
and the device is not a VIO 
device and the program is not 
running in a V=R region, the 
pagefix list address and length 
are obtained from the SAMB. 


b. Otherwise, there is no pagefix 
list, and registers 10 and ll] 
are zeroed. 


EXCPVR returns control with the 


pagefix list address and length in 
registers 10 and ll. 
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SIO Appendage (SIOAPP): This compendium illustrates the SIO appendage. 


1 SIOAPP Return 
if EXCP or if 
PGFXAPP issued 
CALLRTM 


em asp G&== GSP Ges GP Ga 
rs 


Re-EXCPVR entry 

3 New channel 
program to be 
built 


S$ SETERR 
6 CPBLD(see CPBLD) 


If not VIO or V2R 
7 RESETPFX 





EXCPVR entry 

9 New channel 
program built by 
the Pagefix 
Appendage 


11 Channel 
program built 







12 BLDIDAL 


13  VALCKBUF 
14 CNSTIDAL 


15 Process all 
3 


16 DLTFRR 


17 No channel 
program built 


18 POSTUIOB 


8 
19 POSTSIOB 


20 Return to caller 
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The SIO appendage (SIOAPP) operates as 
follows: 


1. 


If flag RQE114 is on, an EXCPVR SVC 
was issued. If flag RQE114 is off, 
an EXCP SVC was issued and is 
ignored by this appendage. 


If flag SAMCLRIM is on, the pagefix 
appendage issued the CALLRITM macro, 
and control is returned to EXCPVR 
using the return offset established 
by the CALLRTM routine. Otherwise, 
the return offset is set to zero, 
which is the normal return to 
EXCPVR. The pagefix list used for 
the previously executed channel 
program is saved. Otherwise, 
processing continues with Step 2 or 
Step 8. 


If flag SAMSIO is on, a re-EXCPVR 
exit was taken from the channel 
end/abnormal end appendage, and the 
channel program in the SAMB is to be 
executed without modification by the 
SIO appendage. The process that 
rebuilds the channel program is 
skipped, and SIO appendage 
processing resumes with Step 20. 


If flag SAMPSTNX is on Can 
end-of-data condition was previously 
reached) and if the data set is not 
open for update processing, no 
channel program is built, and 
processing resumes with Step 17. 


If flag SAMACT is on, this is a 
re-EXCPYR and a new channel program 
must be built. 


The IKNIT routine is called. It 
initializes SAMB flags and fields 
for building a new channel program. 


The SETFRR routine is called. An 
FRR routine is established prior to 
all a new pagefix list in 


The SIO appendage calls the CPBLD 
routine (described below) to build a 
channel program and pagefix list. 


If a VIO device is being accessed or 
if the buffers are in a V=R region, 
no pages are fixed and the pagefix 
processing is skipped; otherwise, 
the RESETPFX routine is called. The 
entries in the new and old pagefix | 
list are compared. If each list has 
one entry and the entries are 
identical, processing continues. 
Otherwise, the saved pagefix list is 
pagefreed and the new pagefix list 
is pagefixed. 


CALLRTM is called if any error is 
encountered page freeing of page 
fixing CABEND 800). Control 
continues with Step 11. 


10. 


ll. 


12. 


13. 


14. 


15. 


16. 
17. 


18. 


19. f 


20. 
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If the SAMACT flag is not on, this 
is an EXCPVR entry and a new channel 
program has been built by the 
pagefix appendage. SAMACT is set 
on. 


The SETFRR routine is called prior 
to building IDA words and validity 
checking buffers. 


If no channel program was built 
CSAMSEGCT = 0), no IDA words are 
built; otherwise, BLDIDAL routine is 
called. 


Each CCW with an IDA flag set to 1] 
is processed by BLDIDAL. If the 
caller's protect key is zero and if 
the caller's region is V=R, buffer 
validation is not performed. 


Otherwise, the VALCKBUF routine is 
called and the SIO appendage checks 
the validity of the CCW's buffer 
address. 


If a VIO device is being accessed or 
if the buffers are in a V=R region, 
IDA words are not built for the CCW 
and the CCW's IDA flag is set to 
zero. Otherwise, a list of IDA 
words is built in the next free slot 
in SAMIDAW. The address of the 
newly built IDA words is placed in 
the CCW by the CNSTIDAL routine. 


If more CCWs in the channel program 
have the IDA flag on, each CCW with 
the IDA flag on is processed by 
BLDIDAL as described in Steps 12 
through 15. 


The FRR routine is deleted. 


If no channel program was built 
CSAMSEGCT zero) or if an end-of-data 
condition has been encountered and 
the SAMB does not contain an 
update-only channel program, 
POSTUIOB is called. 


POSTUIOB posts the first IOB on the 
active IOB queue (pointed to by the 
ICQE). The first IOB's ECB is 
posted with X'41'. If there is an 
end-of-data condition, the CSW 
indicates a “unit exception" 
condition; otherwise, the CSW 
indicates a "channel program check" 
condition. The return offset is set 
to the "ignore" return. 


f the "ignore" return is to be 
taken CSAMRTNOF set to the ignore 
return offset), the POSTSIOB routine 
is called ane the SAMB IOB is posted 
with X*'4]* 


The return offset Cestablished in 


SAMRTNOF) is added to the return 
address. SIOAPP returns to EXCPVR. 
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The Channel Program Build Routine (CPBLD}: This compendium illustrates the Channel 


Program Build routine. 






2 CKRUIOB 


CALLRTM 





4 CALCROOM 


CALCIDAL 


6 BLDPFX 






8 Loop through all 
t0Bs on ICQE 
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The channel program build (CPBLD) 
routine operates as follows: 


1. 


2. 


The CPBLD routine obtains the first 
TeGES the queue (pointed to by the 


The CKRUIOB routine is called. 
checks the validity of the IOB. 
IOB is checked to see that it is 
within the storage area obtained for 
the ICQE and IOBs during OPEN 
processing. If the IOB is not 
within the expected storage area, an 
ABEND with code 400 is scheduled by 
calling the CALLRTM routine. 


CKRUIOB moves. the IOB's data to the 6. 
SAMB IOB; flag byte IJOBNFLG1 and 

data in the IOBEX are moved from the 

user IOB to the SAMB IOB area. 


The CALCROOM routine is called to 
see if a channel program for this 
IOB will be built. It inspects the 
type of request and the current 
status of the SAMB, and determines 
whether there is enough room to 7. 
build IDA words for the buffer Cin 
routine CALCIDAL). CALCROOM also 
checks to see if there is enough 
room for the CCWNs needed. If the 
channel program for the request 
cannot be built, control is returned 
to the caller of CPBLD. 


CALCROOM tests to see if a VIO 
device is being accessed or if the 
buffers are ina V=R region. If 
either condition is so, VIOVEOR is 
called to validity check buffers. 


a. It tests to see if the caller 8. 
key is zero. If so, no 
restriction is placed on the 
buffer location. 


b. If a VIO device is being 
accessed, the buffer address may 
be anywhere except in the CSA. 
If the buffer address Cin 
IOBCCW1) overlaps the CSA, the 


It 
The 
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local lock does not ensure that 
pages remain fixed; the IOB‘’s 
channel program is not built, 
and control is returned to the 
caller of CPBLD. 


c. If executing in a V=R region, 
and the device being accessed is 
not a VIO device, the buffer 
address must be within the V=R 
region boundary. If the buffer 
extends beyond the end of the 
V=R region, the IOB's channel 
program is not built, and 
control is returned to the 
caller of CPBLD. 


If neither a VIO device nor a V=R 
region, BLDPFX is called. The 
pages, which include the buffer, are 
added to the pagefix list. If there 
isn't enough room in the pagefix 
list to add the buffer's pages, the 
IOB's channel program is not built, 
and control is returned to the 
caller of CPBLD. 


The BUILBCCN routine is called. 


a. It builds the CCWs which satisfy 
the IOB's request, and adds the . 
CCWNs to the channel program. 


b. In the CHKEXT routine, if an 
invalid JOBSEEK address is in 
the user I0OB, the CCWs won't be 
built and control is returned to 
the caller of CPBLD. An invalid 
IOBSEEK address can occur only 
for the first IOB on an active 
IOB queue. 


If the IOB just processed is not the 
last I0OB on the active IOB queue 
Cpointed to by the ICQE), the next 
IOB on the queue is obtained. The 
CPBLD routine continues processing 
each IOB on the active IOB queue 
Ccommencing with 2 above) until no 
more IOBs remain to be processed. 
Control is then returned to the 
caller of CPBLD. 
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Channel-End Appendages 


Channel-end appendages, if present, gain processor control when 
the 1/0 interruption supervisor reaches the channel-end 
appendage exit. For data sets, appendages distinguish between 
valid and invalid block lengths by computation. 


The channel-end appendages are: 


IGGO19BT This appendage schedules the writing of successive 
blocks when a record has to be segmented. 


IGGO19CI This appendage distinguishes between wrong-length and 
truncated blocks when fixed-length blocked records are 
being read using normal channel program scheduling. 


IGGO019CJ This appendage distinguishes between wrong-length and 
variable-length blocks when variable-length records 
are being read using normal channel program 
scheduling. 


IGGO19CU This appendage disconnects chained channel programs 
that have executed, posts their completion, and 
performs normal channel-end and abnormal-end appendage 
processing. 


IGGO1SEI This appendage distinguishes between fixed, 
fixed-blocked, and undefined user blocks and embedded 
DOS checkpoint records. In the case of fixed-length 
blocked records, it also distinguishes between 
wrong-length and truncated blocks. 


IGGO19EJ This appendage distinguishes between wrong-length and 
versenc Terese blocks and embedded DOS checkpoint 
records. 


IGGO19BZ This appendage handles channel-end processing and 
abnormal-end processing for EXCPVR requests. 


Appendage IGGO19BT (Channel End=—Create BDAM): Module IGGO19BT 
schedules the writing of successive blocks when a record has to 
be segmented. The OPEN executor selects and loads this module 
if the DCB specifies: 


Write CLoad) 
Variable-length spanned record 
The module operates as follows for a channel-end condition: 


e It receives control when the I/0 supervisor arrives at the 
channel-end exit. 


e It determines whether the WRITE was WRITE-SZ. If it was 
WRITE-SZ, the routine returns control to the I/0 supervisor. 


e When the WRITE-SF is issued, it determines whether the block 
was spanned record. If not, the routine returns control to 
the I/0 supervisor. 


cS) When a spanned record is being processed, the routine 
determines whether the entire record has been written. If 
the record has been written, the routine returns control to 
he I/Q supervisor. When the entire record has not been 
written, the routine schedules the asynchronous exit 
routine. The asynchronous exit routine will schedule an 
EXCP iy write a middle segment or the last segment of the 
record. 
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Appendage IGG019CI (Channel End-~Fixed-Length Blocked Record 
Format): Appendage IGGO19CI distinguishes between valid 
wrong-length blocks and truncated blocks. The OPEN executor 
selects and loads this sppendage if the OPEN parameter list 
specifies: 


Input, readback, INOUT, or OUTIN 
and the DCB specifies: 
Fixed-length blocked records 
The channel-end appendage operates as follows: 


° It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


® It performs length checking for fixed-length records. The 
SLI bit in the read-data CCW is left off. If a wrong length 
record is read, the command chaining bit is turned off and 
the CSW reflects channel end and wrong length indication. 
The channel-end appendage determines whether the record is a 
valid short block. For standard format-F records with a 
ht abe eee block, the module turns on the EOV bit in the 

an @ 


8 For nonstandard format-F records with the track-overflow 
feature, a short block is treated as a valid record. 


Appendage 1IGG019CJ (Channel End-"Variable-Length Record 
Format): Appendage IGG019CJ distinguishes between valid 
wrong-length blocks and variable-length blocks. The OPEN 
executor selects and loads this appendage if the OPEN parameter 
list specifies: 


Input, INOUT, or OUTIN 
and the DCB specifies: 

Variable-length records 
(Under these conditions, the SLI flag is off in the read CCW.) 
The module performs a length check for variable-length records. 
The channel-end appendage operates as follows: 


e It receives control when the I/0 interruption supervisor 
arrives at the channel-end exit. 


e It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


e If the appendage finds a unit-exception bit on in the 
channel status word, it returns control to the I/0 
interruption supervisor immediately. 


® The appendage calculates the length of the block and 
compares it to that in the block length field. 


® If the lengths are equal, the appendage turns off error 
indications in the ECB and DCB and returns control to I/0 
interruption supervisor. 


@ If the lengths are not equal and the device is magnetic 
tape, a check is made to see if the block has been padded up 
to 18 bytes or block size, whichever is less. If so, the 
appendage turns off the error indicators in the ECB and DCB 
and returns control to the [70 supervisor. If the device is 
not magnetic tape or the block is not padded, control is 
returned to the I/0 interruption supervisor immediately. 

The I/0 interruption supervisor then sets the ECB to show 
that the channel program executed with an error condition. 
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Appendage IGG019CU (Channel End, Abnormal End-—Chained 
Channel-Program Scheduling): Appendage IGGO19CU disconnects 
(parts) chained channel programs that have executed and posts 
their completion; in addition, it performs normal channel-end 
and abnormal-end appendage processing. (For a description of 
the joining process of chained channel-program scheduling, refer 
to the chained channel-program scheduling end-of-block 
routines.) The OPEN executor selects and loads this appendage 
for uae as the channel-end and abnormal-end appendage if the DCB 
specifies: 


Chained channel-program scheduling 
The appendage operates as follows: 


e It receives control from the I/0 interruption supervisor 
when the latter arrives at the channel-end and abnormal-end 
appendage exits. 


e It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


® It tests to determine if the CSW and the "First ICB" field 
in the IOB, point to the same channel program. 


6 If they do, the Bupendaas continues as it would for a 
channel<-end condition. 


e If they do not, the appendage disconnects (parts) the 
channel program Cpointed to by the ICB) from the next 
channel program in the chain as follows: 


For input, the appendage tests the IOB for an 
end-of-volume condition. If it exists, the appendage 
continues as it would for a channel-end interruption 
with a permanent buffer. 


For output, or for input without an associated 
end-of-volume condition, the appendage resi ts the 
command in the last CCW from TIC to NOP ane the address 
to the beginning of the next channel program. 


If the device is magnetic tape, it updates the DCBBLKCT 
field in the DCB. 


If a WAIT macro instruction was addressed to this 
channel program, the appendage causes the POST routine 
to perform its processing and to return control to the 
appendage. 


It posts the ICB with the completion code and with 
channel end and updates the IOB SAM prefix to point to 
the next ICB. 


It repeats this disconnecting process until the IOB and the 
CSN point to the same channel program. 


The appendage continues as follows if channel-end processing 
occurred without an error: 


@ It sets the IOB and the ICB to show that the channel program 
completed without an error, and resets the IOB to point to 
the next channel program and ICB 


® If there are more channel programs to be executed, the 
appendage resets the IOB to not-complete and passes control 
to the EXCP supervisor to schedule these channel programs. 


6 If there are no more channel programs to be executed, the 
appendage returns control to the I/0 supervisor. 


The appendage continues as follows if the channel-end 
interruption occurred with a wrong-length indication: 
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e It determines whether a truncated block has been read. 


2 If a truncated block has been read ina data set with 
fixed-length blocked standard record format, it sets: 


— The DCB to show an end-of-volume condition 
- The current ICB to complete-without-error 
- The next ICB to complete-with-error 


- The CSW in the next ICB to show channel end and unit 
exception 


- It returns control to the I/0 interruption supervisor. 


@ If a truncated block has been read ina data set with 
fixed-length blocked record format, the appendage sets the 
ICB to complete-without~-error and resets the IOB to point to 
the next ICB and its channel program. The appendage causes 
ad to pass to the EXCP supervisor to restart the 
channel. 


@ If a block with wrong-lensgth data has been read, the 
appendage continues as it would for permanent errors. 


The appendage continues as follows if channel-end processing 
occurred with an error: 


@ It isolates the channel program in error by disconnecting it 
from the next one. 


@ It sets the IOB to point to the channel program in error. 


e It sets the DCB to show that the channel program is being 
retried. 


@ It takes a re-EXCP exit, which causes the error segment to 
be retranslated and retried. 


The appendage continues as follows if channel-end processing 
occurred with a permanent error: 


° It receives control after the I/0 supervisor error-retry 
procedure is found unsuccessful in correcting the error. 


e For a 3211 Printer, it tests to see whether further retry is 
necessary. If the ECB is posted in error with an X*41* or 
X°44* and the command-retry bit in sense byte 1] is on, then 
it schedules the asynchronous-error-processing module, 
IGGO19FS, and exits. 


M It posts the ICB to show that the channel program was 
completed in error. 


7 It disconnects the channel program in error from the 
following one. 


e It resets the IOB to point to the channel program after the 
one in error. 


@ It returns control to the I/0 interruption supervisor. 


Appendage IGGO19EI (Channel End, Abnormal End--Fixed-Length or 
Undefined-Length Record Format): Appendage IGGO19EI 
distinguishes between fixed, fixed-blocked, and undefined user 
blocks and embedded DOS checkpoint records. In the case of 
fixed-length blocked records, it also distinguishes between 
wrong-length and truncated blocks. The OPEN executor selects 
and loads this appendage if the OPEN parameter list specifies: 


Input, readback 
and the DCB specifies: 
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OPTCD=H (specified in JCL) 

Magnetic tape 

Fixed, fixed-blocked, or undefined-length blocks 
appendage operates as follows: 


It receives control from the I/0 interruption supervisor 
when the I/0 interruption supervisor arrives at the 
channel-end and abnormal-end appendage exits. 


It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


Upon encountering a checkpoint header record, bit 0 in the 
DEBTFLGS field of the DEB is turned on. It is turned off 
when the checkpoint trailer record is encountered. This 
provides the means to differentiate between the user's data 
records and the embedded checkpoint records. 


In the channel-end entry into this appendage, the number of 
bytes read is tested. If 20 bytes were not read and the 
bypass~flag bit in the DEBTFLGS field is off, the appendage 
takes the normal exit to the I/0 interruption supervisor for 
fixed-length and undefined-length formats and performs the 
necessary record length check for fixed-block records. If 
20 bytes were read, the record is tested to determine if it 
is a checkpoint header record. If it is not a checkpoint 
header record, the normal exit to the I/0 interruption 
supervisor is taken for fixed-length and undefined-length 
formats, and record length checking for fixed-block formats 
is performed. 


When a checkpoint header record is encountered, the 
bypass-flag bit in the DEBTFLGS field is turned on, the 
DCBBLKCT field is decremented by the value in the IOBINCAM 
field, the "Flags 1-3" fields of the IOB are reinitialized, 
and the IJOBERRCT field is set to zero. For QSAM, the IOB 
completion code is set to X'50" and-the normal exit is taken 
to the I/0 interruption supervisor. The bypassing of the 
checkpoint records is performed in the QSAM routines. For 
BSAM, the re-EXCP exit is taken to the I/0 interruption 
supervisor. 


The appendage is reentered when the reexecuted channel 
program ends for BSAM or when the rescheduled channel 
program ends for QSAM and, finding the bypass flag on, tests 
for the checkpoint trailer record. If the record read is 
not the trailer record, the DCBBLKCT field is decreased, the 
I0B-flag fields reinitialized, and the IOBERRCT field is set 
to zero. For BSAM, the re-EXCP exit is taken to the I/0 
interruption supervisor. For QSAM, the IOB completion code 
is set to X'50", and the normal exit is taken to the I/70 
interruption supervisor. This process continues until the 
trailer record is read. When the trailer record 1s read, 
the bypass flag is turned off, and the above procedure is 
followed. The next entry to this channel-end appendage 
follows the reading of the record immediately following the 
embedded checkpoint records. 


The appendage is entered in the event of an abnormal 
condition arising. If this entry is the result of any 
condition other than a data error, control is returned to 
the I/0 interruption supervisor by way of the normal exit. 


If it is a data error, a test is then performed to determine 
if a checkpoint header/trailer record was read. This test 
comprises an initial 12-byte comparison of the record's 
first 12 bytes with the checkpoint identifier 


4/7 CHKPT 77 
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Should this comparison fail, a byte-by-byte comparison is 
performed. If 10 or more bytes compare successfully, it is 
then assumed that a header or trailer record has been 
encountered and the appendage returns control to the I/0 
interruption supervisor. 


Appendage IGGO19EJ (Channel End, Abnormal End-Variable-Length 
Record Format): Appendage IGGOL9EJ distinguishes between 
variable-length and wrong-length blocks and embedded DOS 
checkpoint records. The OPEN executor selects and loads this 
appendage if the OPEN parameter list specifies: 


and 


The 


Input 

the DCB specifies: 

OPTCD=H (via JCL) 

Magnetic tape 

Variable-length blocks 
appendage operates as follows: 


It tests to determine if the EXCP was issued from an SVC 
routine. If so, it effects a normal return to EXCP. 


It receives control from the I/0 interruption supervisor 
when the I/0 interruption supervisor arrives at the 
channel-end and abnormal-end appendage exits. 


Upon encountering a checkpoint header record, bit 0 in the 
DEBTFLGS field of the DEB is turned on. It is turned off 
when the checkpoint trailer record is encountered. This 
provides the means to differentiate between the user's data 
records and the embedded checkpoint records. 


In the channel-end entry into this appendage the first two 
bytes of the record are tested to determine if it is a valid 
block. (The first 2 bytes of a variable-length physical 
record specify the block length and are used in performing 
length-checking.) The first 12 bytes of a checkpoint header 
or trailer record (which are identical and 20 bytes in 
poe identify it as a header/trailer record. These 12 
ytes are: 
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The first 2 bytes of the checkpoint header record do not 
satisfy the length check as a variable-length record. If 
the first 2 bytes do satisfy the length check, the appendage 
takes the normal exit to the I/0 interruption supervisor for 
variable-length records. If the first 2 bytes do not 
satisfy the length check for a variable-length record, the 
number of bytes read is computed. If 20 bytes were not read 
and the bypass-flag bit in the DEBTFLGS field is off, the 
appendage returns to the I/0 interruption supervisor. If 20 
bytes are read, the record is tested to determine if it is a 
checkpoint header record. If it is not a checkpoint header 
record, the normal exit to the I/0 interruption supervisor 
is taken for variable-length formats. 


When a checkpoint header record is encountered, the 
bypass~flag bit in the DEBTFLGS field is turned on, the 
DCBBLKCT field is decreased by the value in the IOBINCAM 
field of the IOB, the "Flags 1-3" fields of the IOB 
reinitialized, and the IOBERRCT field set to zero. For 
QSAM, the IOB completion code is set to X'50" and the normal 
exit is taken to the I/0 interruption supervisor. The 
bypassing of the checkpoint records is performed in the QSAM 
routines. For BSAM, the re-EXCP exit is taken to the I/0 
interruption supervisor. 
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The appendage is reentered when the reexecuted channel 
program ends for BSAM or when the rescheduled channel 
program ends for QSAM and, finding the bypass flag on, tests 
for the checkpoint trailer record. If the record read is 
not the trailer record, the DCBBLKCT field is decreased, the 
IOB flag fields reinitialized, and the IOBERRCT field is set 
to zero. For BSAM, the re-EXCP exit is taken to the I/0 
interruption supervisor. For QSAM, the IOB completion code 
is set to X*50°, and the normal exit is taken to the 170 
interruption supervisor. This process continues until the 
trailer record is read. When the trailer record is read, 
the bypass-flag is turned off and the above procedure 
followed. The next entry to this channel-end appendage 
follows the reading of the record immediately following the 
embedded checkpoint records. 


The appendage is also entered in the event an abnormal 
condition arises. If this entry is the result of any 
condition other than a data error, control is returned to 
the I70 interruption supervisor by way of the normal exit. 


If it is a data error, a test is then performed to determine 
if a checkpoint header/trailer record was read. This test 
comprises an initial l12-byte comparison of the record's 
first 12 bytes with the checkpoint identifier 
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~ Should this comparison fail, a byte-by-byte comparison is 


performed. If 10 or more bytes compare successfully, it is 
then assumed that a header or trailer record has been 
encountered, and the appendage returns control to the I70 
interruption supervisor. 


Appendage IGG019BZ (DASD EXCPVR Channel End and Abnormal End): 
Appendage IGG019BZ does all channel-end and abnormal-end 
appendage processing for EXCPVR requests, for all record 


formats. The module includes two entry points: one for 


‘channel-end processing, and one for abnormal-end processing. 
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Separate functions are performed at each entry point, and a 
common routine, CPEND, is called to process the channel program. 
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Channel-End Appendage (CHEND): 
This compendium illustrates the channel-end appendage. 


SAMRST off 





The channel-end appendage (CHEND) for WRITE with refill READ). When the 
EXCPVR requests operates as follows: channel program is ready for 
execution, the return offset is set 
1. It is entered when a channel program to 8 to re-EXCPVR. 
completes. A test is made to see if 
the channel program resulted from an 3. For normal channel-end processing 
EXCPVR request. If not, the request CSAMRST off), CHEND calls the CPEND 
is ignored and control is returned. routine to process the completed 
channel program segment(s) in the 
2. If a previously broken channel SAMB. 
program is to be restarted (the 
SAMRST flag is on), it prepares the 4. If the return offset is zero, the 
second half of the channel program | ahaha lhl flag (SAMACT in the SAMB) 
Cin the SAMB) for execution. The set to zero. This allows an 
only channel program that can be EXCPVR SVC entry to the pagefix 
broken is a PUTX request Cupdate appendage. 
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Abnormal-End Appendage (ABNOREND): 
This compendium illustrates the abnormal-end appendage CABNOREND) for 
EXCPYR requests. 


1 ABNOREND 


3. First entry 
4 BREAKCP 


Second entry 





The abnormal-end appendage CABNOREND) 4. If the request was QSAM PUTX Cupdate 
operates as follows: WRITE with refill READ) and the 
; Sttis, error was in the update WRITE part 
1. ABNOREND verifies that the condition of the channel program, the chained 
resulted from an EXCPVR request, program is broken or separated so 
and, if not, it ignores the. resuest . that only the update WRITE portion 
and returns control. | is subsequently executed by the 
ERPs. The SAMRST flag (in SAMB) is 
2. NRF is called. If the error is a. , 2 set on. If the error occurred in 
*no-record-found™ condition, and if the refill READ portion of the 
it is expected (update or track channel program, only the READ 
overflow output), the seek address. _ . portion is reexecuted by the ERPs. 
Cin the SAMB) is updated and the TIC The return offset is left zero to 
command Cin the prolog CCW area) is allow ERP processing to occur. 
reset to point to the failing 
channel program segment. The SAMSIO 5. If the appendage is being entered 
flag is set on to indicate that the for the second time, the 
channel program need not be rebuilt abnormal-end appendage calls the 
by the SIO appendage (SIOAPP). CPEND routine to process the channel 


Program segments. 
3. If the error is not an expected 


no-record-found condition, and if 6. If the return offset is zero and 
the abnormal-end appendage is being this is the second entry, the 
entered for the first time, the “active™ flag (SAMACT in the SAMB) 
BREAKCP routine is called. is set to zero to allow an EXCPVR 


entry to the pagefix appendage. 
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This Compendium illustrates the CPEND routine of 


Channel Program Error (CPEND): 
IGGO019BZ appendage CEXCPYR requests). 


Unrecoverable 


1 CPEND 
error 


2 CHKIOB 


error ICE 
RTMCALL 400 ABEND 


For each éuccessful 
channel program 
segment 


3 UPDCURR 





5 Update SMF count 


For the error channel 
program segment 


6 UPDCURR 


7 Update SMF count 


8 SMFCALL 


All channel | program 
segments successful 


Error segment 
11 INCLTH 


12 RDCTERR 


13 RDDERR 


Recoverable 
error 
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The channel program end (CPEND) routine 
for EXCPVR requests operates as follows: 


1. It is called from the channel-end 
appendage and the abnormal-end 
appendage to process completed 
channel program segments. The CPEND 
routine first processes all 
successfully completed channel 
program segments in the SAMB, then 
processes any segment that may have 
ended in error. 


2. CHKIOB is called to validity check 
each IOB. If invalid, the RTMCALL 
routine issues a 400 ABEND. 


3. UPDCURR is called, and the user IOB 
is updated to reflect the status of 
its related request. 


4. POST is called, and the user I0OB 
related to the completed channel 
program segment is posted as 
successful (X'7F'). The IOB is 
posted by the system post routine, 
IEAOPTB1. The address of the posted 
IOB is saved Cin SAMIOBP, in the 
SAMB), and the address of the 
current IOB and the ICQE's pointer 
to the first IOB on the queue 
CICQFIRST) is updated so that it 
points to the next IOB. 


5. After the successfully completed 
user IOB is posted, the SMF count 
Cin SAMSMFCT, in the SAMB) is 
incremented. 


6. For abnormally completed channel 
program segments, UPDCURR is called 
and it is determined which CCWs were 
executed. 


7. The SMF count is updated if the 
error occurred after a read data 


8. When the IOBs of all successful 
channel program segments in the SAMB 
have been posted, the CPEND routine 
calls SMFCALL, if necessary, and 
IEASMFEX is called, passing the EXCP 
count Cin SAMSMFCT, in the SAMB) to 
the SMF routine. 


9. If all channel program segments 
completed successfully, the CEDE 


10. 


ll. 


12. 


13. 


14. 


15. 
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routine is called to determine if 
the last posted IOB is the last IOB 
on the active queue. If so, the 
return offset is set to cause a 
normal exit Creturn offset=0) to 
EXCPVR. If there is another IOB on 
the queue, the return offset is set 
to cause a re-EXCPVR exit Creturn 
offset=3). 


The ERROR routine is called to check 
if the error is recoverable. 


The INCLTH routine checks for 
incorrect-length. Incorrect-length 
indications on variable-length and 
undefined-length records formats are 
accepted, because the CCWs that are 
built do not have the SLI flag set 
on. An incorrect-length indication 
ona fixed-length standard record 
format is recognized as a software 
end-of-file indication. The "post 
next™ flag CSAMPSTNX) is set on to 
indicate end of data on the next 
request. 


The RDCTERR routine checks for a 
multitrack READ count error. btihen 
the IOB's EOB condition code is 
C'4G2', end of extent has occurred. 
End-of-extent processing was 
formerly handled by an end-of~extent 
appendage. If another extent is in 
the DEB, the seek address (IOBSEEK) 
is updated. 


The RDDERR routine checks for errors 
on READ DATA or READ KEY AND DATA 
commands. When the command is part 
of a "search previous" operation, 
the seek address is updated to skip 
the record in error and a re~EXCPVR 
return is indicated. 


If the error is recoverable, POST is 
called (see Step 4). 


For recoverable errors, CEDE is 
called (see Step 9) 


When the error is not recoverable, 
POST is called and the request's IOB 
is posted with the unsuccessful 
completion code, X*'41*". SAMRTNOF is 
set to cause a normal return to 
EXCPVR. 
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Program Controlled Interruption (PCI) Appendage (Execution of Channel Programs 
Scheduled by Chaining) 


If chained channel-program scheduling is used in V=R, its 
address is placed into the appendage vector table for all three 
I/0 interruption supervisor exits: PCI, channel-end, and 
abnormal end. In V=V, only the channel-end and abnormal-end 
entries are made. 


A program controlled interruption (PCI), in the sequential 
access methods, signals the normal execution of a channel 
program that was scheduled by chaining. The interruption occurs 
when control of the channel has passed to the next channel 
program. If the only channel status is PCI, the I/0 supervisor 
performs no processing; if other channel conditions are also 
present, the I/0 supervisor processes these in the usual way 
after it regains processor control from the PCI appendage. 


This appendage performs the following three functions: 


e It performs the channel status analysis usually done by the 
I/0 interruption supervisor. The interruption is caused by 
a condition in the logic of the channel program rather than 
a condition in the channel or the device. The condition is 
meaningful only to the processing program (in this case, the 
access method routines, or, more specifically, the 
appendage) and has no meaning to the I/0 supervisor. 


e It repeats this process for preceding channel programs whose 
PCIs were lost. PCIs are not stacked. If a channel remains 
masked from the time of one PCI until after another PCI, 
only one PCI occurs. 


e It performs processing normally necessary for other 
interruptions (for example, channel end). Interruptions 
other than PCIs may terminate execution of chained channel 
programs. 


Accordingly, a PCI appendage not only does the processing 
implicit for the logical condition that the interruption signals 
Cnamely, that the preceding channel program executed normally), 
but also extends this processing back to any preceding channel 
programs whose PCI may have been masked and, finally, takes 
processor control at other I/0 interruption supervisor appendage 
exits if chained channel-program scheduling is used. 


Appendage IGG019V6 (PCI, Channel End, Abnormal End--Chained 
Channel-Program Scheduling): This appendage is the same as 
IGG019CU, described above, except that it is loaded into the V=R 
region instead of LPA and uses the PCIPOST macro to post ICBs 
because it does not hold the local lock. When it receives 
control for a PCI interrupt, it processes the ICBs that precede 
the one with the interrupt Cas described above in IGGO19CU). 
When the ICB that had the interrupt is found, the appendage 
returns to the I/0 supervisor. 


x o~ 


Abnormal-End Appendasges 


The abnormal-end appendage receives control from the I/0 
interruption supervisor when the latter finds a unit check 
condition in the channel status. word (CSN). The appendage for 
this exit is a 3211 error appendage. 


Appendage IGGOL9FR (Abnormal End-~3211 Printer): Appendage 
IGGO19OFR schedules the asynchronous error-processing routine 
IGGO1L9OFS when a print line buffer (PLB) parity error or a UCS 
buffer parity error occurs. 
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QSAM CONTROL ROUTINES 


These control routines, shared by QSAM and BSAM, consist of both 
modules loaded by the OPEN executor and macro expansions. The 
selection and loading of one of the modules are performed by the 
OPEN executor and depend on the access conditions; the presence 
of macro expansions depends solely on the use of the 
corresponding macro instruction in the processing program and is 
independent of the presence or absence of modules. 


If a CNTRL macro instruction is encountered in a processing 
Program using QSAM or BSAM, control passes to a control routine. 
The PRTOV macro expansions place the code to be executed inline 
in the processing program. CNTRL routines pass control to the 
I/O supervisor; the macro expansions return control to the 
processing program. The CNTRL routine for the card reader 
causes execution of a channel program that stacks the card just 
read into the selected stacker. The CNIRL routine for the 
printer causes execution of a channel program with a command to 
space or to skip. The printer overflow macro expansions cause 
testing for the printer-overflow condition. 


There are three CNTRL routines in QSAM; they are load modules. 
Figure 14 lists the routines available and the conditions that 
cause a particular routine to be used. The OPEN executor 


selects one of the modules, loads it, and puts its address into 
the DCBCNTRL field. 


Access Method Options Selections 


CNTRL X X X 
Printer X 


Card reader, single X 
buffer 


3525 (printing) X 
Modules 

IGGO19CA CA 
IGGO19ICB CB 

IGGO19FA FA 


Figure 14. Module Selector—Control Modules 


There are two PRTOV routines, which are macro expansions. 
Whenever the assembler encounters either of the two macro 
instructions shown in Figure 15, it substitutes the 
corresponding macro expansion in the processing program object 


module. 

_ Number of | 
Macro Instruction Macro Expansions 
PRTOV—User exit 1 
PRTOV—No user exit ] 


Figure 15. Control Routines That Are Expansions of Macro 
Instructions 
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Control Module IGGO19CA (CNTRL~=“Select Stacker-"Card Reader): 
Module IGGO19CA permits stacker selection on the card reader. 
The fee executor selects and loads this module if the DCB 
specifies: 


CNTRL 
Card reader 
One buffer 
The module operates as follows: 


e It receives control when the CNTRL macro instruction is 
encountered in a processing program. 


® For QSAM, the module schedules a channel program that stacks 
the card just read, reads the next card into the buffer, 
forces an EOQB condition to be recognized by the GET routine, 
and returns control to the processing program. (Card reader 
GET module IGGO19AG depends on the use of this routine to 
refill empty buffers. ) 


e For BSAM, the module schedules a channel program that stacks 
the card just read and then returns control to the 
processing program. The READ/NRITE module, IGGO19BA, causes 
a channel program to be scheduled that reads the next card 
into the buffer. 


e If the 3505 or 3525 is specified, processing continues for 
stacker 1 or 2 (whichever is specified in the CNTRL macro 
instruction of the user's program). 


® A — is made to determine if either OMR or RCE is being 
used. 


If either OMR or RCE is specified, the OMR/RCE bit is turned 
on in the operation codes of the CCWs. 


Control Module IGGO19CB (CNTRL~“Space, Skip="Printer): Module 
IGGO19CB causes printer spacing and skipping by use of macro 
instructions; the spacing or skipping to be performed are 
specified as operands of the macro instruction. The OPEN 
executor selects and loads this module if the DCB specifies: 


CNTRL 

Printer 
The module constructs a channel program to control the device, 
issues an EXCP macro instruction, and then returns control to 
the processing program. 


Control Module IGGOL9SFA: This module performs line control 
functions if: 


e The 3525 is specified 

e 6A print file is specified 
e CNTRL is specified 

The module operates as follows: 


e The line counter total (DCBLNP) in the DCB is increased 
according to the specifications in the CNTRL instruction. 


e I/0 macro sequencing is performed when using this module and 
a 3525 associated data set. If an error is detected, an 
abend (003) is issued with a return code of 03. 


e If a skip to a channel on the next card is issued by the 
user, this module issues an EXCP to feed the next card; 
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issues a WAIT, and returns control to the user's program by 
way of register 14. 


Printer-Overflow Macro Expansions: The PRTOV macro expansions 
permit processing program response to printer-overflow 
conditions. 


The following macro expansions are created as inline coding 
during the expansion of the macro instruction. 


PRTOV-—User Exit: The coding operates as follows: 


® A WAIT macro instruction is issued for the IOB pointed to by 
the DCBIOBA field. 


e The DCBIFLGS field of the DCB is tested for an overflow 
condition. 


® If an overflow condition exists, a BALR instruction is 
issued to pass control to the user's routine. 


® If no overflow condition exists, control passes to the next 
instruction. 


PRTOV—No User Exit: The coding creates a test mask in the DCB 
field located at DCBDEVT + 1 and returns control to the 
Processing program. 


Note: The printer end-of-block routine temporarily stores the 

mask in the NOP channel command word (CCW) preceding the Write 

CCW, turns on a bit in the first byte of the IOB and resets the 

mask. The PRTOV appendage tests the IOB bit to determine 

eee to respond to or ignore an overflow condition and resets 
e bit. 


BASIC SEQUENTIAL ACCESS METHOD ROUTINES 


Basic sequential access method (BSAM) routines cause storage and 
retrieval of blocks of data. BSAM routines furnish device 
control, but do not provide blocking. There are seven types of 
BSAM routines: 


® READ routines 

e WRITE routines 

@ End-of-block routines 

e CHECK routines 

O Appendage routines 

e Control routines 

® SVC Routines 

Diagram G, BSAM/BPAM Flow of Control, shows the relationship of 
the BSAM routines to other portions of the operating system and 
to the processing program. 

Control routines (not shown in Diagram G) permit the processing 
program to control the positioning of auxiliary storage devices. 
They receive control when the CNTRL (printer, tape, card 
reader), PRTOV, NOTE, POINT, or BSP macro instruction is 
encountered in a processing program. The track balance routine 
receives control from a WRITE routine or the track-overflow, 
end-of-block routine. 


The BSAM control modules and routines are described later in 
this manual. 
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READ AND WRITE ROUTINES 





A READ or WRITE routine receives control when the processing 
program issues a READ or a WRITE macro instruction. The READ 
and WRITE routines used with data sets organized for the 
sequential or partitioned access methods pass control to the 
end-of-block routines, which in turn pass control to the [70 
supervisor. The WRITE routines, used to create data sets 
organized for later access by basic direct access method (BDAM) 
routines, include the end-of-block function within themselves, 
and so pass control to the I/0 supervisor directly. A READ or 
WRITE routine processes parameters set by the processing program 
in the DECB to permit scheduling of the next channel program. 


Figure 16 on page 98 lists the modules available and the 
conditions that cause a particular module to be used. The OPEN 
executor selects one of these routines, loads it, and puts its 
address into the DCBREAD/WRITE field. The figure shows, for 
example, that module IGGO1OBH is selected and loaded if update 
and the READ macro instruction are specified. 


Access Method Options Selections 

Input xX X X 
Output X X X X X xX 
INOUT, OUTIN X | X X 
Update X 

READ X X X 
Offset READ X 

WRITE X X 
WRITE CLoad mode) (Create-BDAM) | X Xx X xX 
Fixed-length record format : X X xX 
Undefined-length record format xX X 
Variable-length record format ao & ae X X X X 
Spanned records =“ X X 
Track overflow X 

%, DATA, or SYSOUT specified on DD . X 


statement 
READ/WRITE Modules 





Figure 16 (Part 1 of 
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2). Module Selector—READ and WRITE Modules 
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Access Method Opticns 


IGGO19BA 


IGGO19BH 


IGGO19BR 


IGGO19BU 


IGGO1L9SDA 


IGGO19DB 


IGGO19DD 


IGGO19DK 





Selections 


BA BA 


BH 


BU 


DA 


DB 


DD 


DK 


Figure 16 (Part 2 of 2). Module Selector——-READ and WRITE Modules 


READ/UWRITE Module IGGO19BA: Module IGGO19BA completes the 
channel program to be scheduled next, and relates control blocks 
used by the I/0 supervisor to the channel program. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


and 


The 


Input, output, INOUT, or OUTIN 
the DCB specifies: 

READ or WRITE 

module operates as follows: 


It receives control when a READ or WRITE macro instruction 
is encountered in a processing program. 


It enters the address of the IOB into the DECB to permit the 
CHECK routine to later test execution of the channel 
program. 


It fills in a CCN by inserting the buffer address from the 
DECB, and the length from either the DECB (for 
undefined-length records), the DCB (for fixed-length 
records, and for input of variable-length records), or the 
record itself (for output of variable-length records). 


If a block is to be written on a direct~access storage 
device, the module tests the DCBOFLGS field in the DCB to 
establish the validity of the value in the DCBIRBAL field. 


If the DCBTRBAL value is valid, or if a block is to be 
written on a device other than direct-access storage, or if 
a block is to be read from any device, the module passes 
control to an end-of-block routine. 


If the DCBTRBAL value is not valid (that is, the preceding 
operation was a READ, POINT, or OPEN for MOD), the module 
issues an SVC 25 instruction to pass control to BSAM control 
module IGCOO002Z2E to obtain a valid track balance. When 
control returns to this module, it passes control to an 
end-of-block routine. 
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READ/WRITE Module IGGO19BH (Update): Module IGGO19BH ascertains 
whether a buffer supplied by the processing program is to be 
written from or read into, and causes a corresponding BSAM 
update channel program to be executed. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 


Update 


and the DCB specifies: 
READ 
The module operates as follows: 


e It gains control when the processing program uses a READ or 
WRITE macro instruction. 


® If data is to be read into a buffer, the module flags the 
IOB for a READ operation, and copies the length and buffer 
address from the DECB or the DCB into the READ CCW. 


® If data is to be written from a buffer, the module flags the 
IOB for a WRITE operation and completes the length and 
buffer address entries in the WRITE CCW. 


e The module passes control to end-of-block module IGGO1LOTY. 
On return of control from that module, it returns control to 
the processing program. 


WRITE Module IGGO19BR (Create BDAM/VRE)}: Module IGGO1LOBR writes 
variable-length spanned blocks and record-zero blocks for a data 
set that will later be processed by BDAM. The OPEN executor 
selects and loads this module if the DCB specifies: 


WRITE CLoad mode) 
Variable-length spanned record 
BFTEK=R 


The module consists of three routines: one to write data 
blocks, one to write record-zero blocks, and an asynchronous 
exit routine. 


To write a data block for BDAM, the routine operates as follows: 


e It receives control from the processing program when it 
encounters a WRITE-SF macro instruction and from the EOV 
routine (to write the block not written into the previous 
volume) after the EQV routine of 1/0 Support has obtained 
another extent. 


® It determines whether this block fits on the current track. 
If it does, the routine determines whether the new track 
balance is greater than 8 bytes. If the new track balance 
is equal to or less than 8 bytes, the routine adds 
write-capacity-record CCWs to the write-count~key~and-data 
CCNs. It then issues an EXCP. 


® If the block does not fit on the current track, the routine 
determines whether the block fits on the current volume. If 
it does, this module constructs a channel program to write 
the first segment from a segment area associated with this 
IOB and to write the capacity record of this track. It then 
issues an EXCP. The asynchronous exit routine writes the 
successive segments. The DCBFDAD field has the address of 
the Lecgratpatad track on which the last segment of this record 
is written. 


6 If the block does not fit on the track or within the current 


volume, this routine constructs a channel program to write 
the capacity record of the track. It then issues an EXCP. 
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The asynchronous exit routine writes the capacity records of 
all the tracks on this volume. The EOV routine reschedules 
the WRITE request on the same volume spanning the extents, 
if the secondary allocation is on the same volume. When the 
secondary allocation is on a different volume, the WRITE 
request is written on the new volume. 


To write a record-zero block for BDAM, the routine operates as 
follows: 


@ It receives control when a WRITE-SZ macro instruction is 
encountered in the processing program or after the EO 
routine has obtained another extent. 


e It updates the record-zero area and the channel program to 
write the record-zero block and issues an EXCP macro 
instruction. The routine returns control to the processing 
program or to the EOV routine. 


e If there are no data blocks on the track, the module 
modifies the channel program to clear the track after 
writing the record-zero block. 


The asynchronous exit routine operates as follows: 


e It receives control from the channel-end appendage through 
the exit effector when a spanned record is to be processed. 


¢ If the record is a spanned record, it constructs a segment 
from the remaining part of the record and issues an EXCP 
macro instruction to write the segment. 


e If the record is a spanned volume record, it issues an EXCP 
alae ee to write capacity records up to the end of 
e extent. 


READ Nodule IGGO19BU: This module completes the channel program 
to read a direct data set, and relates the control blocks used 
by the I/0 Supervisor to the channel program. The OPEN executor 
selects and loads this module along with an associated 

peli tN appendage CIGGOLOBV) if the OPEN parameter list 
specifies: 


Input 
and the DCB specifies: 
BFTEK=R 


Variable-length spanned record format for a BDAM data set 
with keys 


The module operates as follows: 


® It receives control when a READ macro instruction is 
encountered in the processing program. 


6 It enters the address of the IOB into the DECB to permit the 
CHECK routine to later test execution of the channel 
program. 


° It waits for the SAMB IOB ECB (in the ICQE) to complete, 
then tests it to determine if the count field of the record 
to be read is available. 


® If the count field of the record to be read is not available 
Cas indicated by the SAMSCHPR flag in the SAMB), an EXCPVR 
macro instruction is issued. If the SAMSCHPR flag is set 
and BFTEK=R processing has been requested, only the count 
field of mie next record will be read. 


e When the count field of the record to be read is available, 
the buffer address and record length are placed in the CCN. 
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e The module then issues an EXCPVR macro instruction. 


WRITE Module IGGO1ODA (Create-BDAM}: Module IGGO019DA writes 
fixed-length data blocks, fixed-length dummy blocks, and 
record-zero blocks for a data set to be processed later by BDAM. 
The ae executor selects and loads this module if the DCB 
specifies: 


WRITE CLoad mode) 
Fixed-length record format 


With the rotational position sensing (RPS) feature, this module 
tests the first CCW of a channel program created by IGG0199L. 

It tests for a set-sector command to determine whether it should 
take any RPS CCWs into account when making modifications to the 
channel program. 


The module operates as follows: 


® It receives control from the processing program when it 
encounters a WRITE macro instruction and also from the EOV 
routine after the end-of-volume routine of O0/C/EOV has 
obtained another extent. 


e It connects the next available IOB to the DCB and the DECB. 


y It determines, in the same manner as end-of-block routine 
IGGO19CD, whether this block fits on the current track and 
updates the DCBTRBAL field. 


® If this is neither the first nor the last block of a track, 
the module updates the full device address (FDAD) in the DCB 
and the JOB and issues an EXCP macro instruction. It then 
returns control to the processing program or the EOV routine 
from which it received control. 


® If this is the last block of a track (that is, no other 
block fits on the track except the present block), the 
module updates the full device address (FDAD) in the DCB and 
the IOB, expands the channel program to write the 
record-zero block for that track as well as the last data 
block, and issues an EXCP macro instruction. The module 
beat eset control to the routine from which it received 
control. 


e If this is the first block of a new track and there is 
another track in the allocated extent, the module finds the 
next track in the allocated extent, updates the full device 
address (FDAD) in the DCB and the IOB, and issues an EXCP 
macro instruction. It then returns control to the routine 
from which it received control. 


e If this is the first block of a new track and there is no 
other track in the allocated extent, the module sets an EOV 
condition indication and returns control to the processing 
program. | 


WRITE Module IGGO19DB (Create-BDAM): Module IGGO19DB writes 
variable-length and undefined-length blocks and record-zero 
blocks for a data set to be processed later by BDAM. The OPEN 
executor select and loads this module if the DCB specifies: 


WRITE CLoad mode) 
Variable-length or undefined-length record format 


The module consists of two routines: one to write data blocks 
and one to write record-zero blocks. 


With the rotational position sensing (RPS) feature, the module 


tests for a set-sector command in the first CCN of a channel 
program created by IGGO199L. If it is an RPS channel program, 
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the module makes the necessary modifications to the channel 
program. 


To write a data block for BDAM, the routine operates as follows: 


e It receives control from the processing program when it 
encounters a WRITE-SF macro instruction and from the EOV 
routine (to write the block not written into the previous 
volume) after the end-of-volume routine of O/C/EOV has 
obtained another extent. 


® It determines whether this block fits on the current track 
in the same manner as end-of-block routine IGGO019CD and 
updates the DCBTRBAL field. 


e If one of the following conditions exists, it returns 
control without any further processing to the processing 
it aly or to the EOV routine from which it received 
control: 


A block other than the first block on a track is to be 
Aa all but it does not fit on the balance of the 
rack. 


The first block is to be written on a track, but the 
allocated extents are exhausted. For this condition, 
the module sets an EOV condition indication before it 
returns control. 


e If either of the following conditions exists, the module 
updates the full device address (FDAD) in the DCB, the IOB, 
and the channel program, issues an EXCP macro instruction 
and then returns control to the routine from which control 
was received: 


A block other than the first block on the track is to be 
written and it fits on the balance of the track. 


The first block is to be written on a track and there is 
another track in the allocated extents. 


It returns control to the processing program or the 
end-of-volume routine. 


To write a record-zero block for BDAM, the routine operates as 
follows: 


e It receives control when a WRITE-SZ macro instruction is 
encountered in the processing program, or after the 
end-of-volume routine has obtained another extent. 


e It updates the record-zero area and the channel program to 
write the record-zero block and issues an EXCP macro 
instruction. The routine returns control to the processing 
program or to the end-of-volume routine. 


e If there are no data blocks on the track, the module 
modifies the channel program to clear the track after 
writing the record-zero block. 


WRITE Module IGGO19DD (Create-BDAM"—Track Overflow): Module 
IGGO1LSDD creates data sets (with track overflow) of fixed-length 
data and fixed-length dummy blocks that are subsequently to be 
processed by BDAM. The module segments the block, enters the 
segment lengths and buffer segment addresses in the channel 
program, updates storage addresses for the channel program, and 
updates count fields for the block to be written and for 
records-zero of the tracks. The OPEN executor selects and loads 
this module if the OPEN parameter list specifies: 
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Output 

and the DCB specifies: 
WRITE CLoad mode) 
Fixed-length record format 
Track overflow 


With the rotational position sensing (RPS) feature, the first 

CCW of a channel program created by IGGO191M is tested by this 
module for a set-sector command code. If the code is present, 
alterations to the channel program are made accordingly. 


The module operates as follows: 


e It receives control from the processing program when the 
program issues a WRITE macro instruction, or from the 
end-of-volume routine of I/0 support after that routine has 
obtained a new volume to write out any pending channel 
programs. (The end-of-volume routine receives control from 
the CHECK routine when that routine finds that a channel 
program did not execute because of an end-of-volume 
condition.) | 


e If no IOB is available, it returns control to the processing 
program. 


e If an IOB is available, it stores its address in the DCB and 
the DECB. 


e If the block last written was the last one for this extent, 
the module erases the balance of the extent. 


6 If the block last written filled the last track used, the 
module obtains the address of the next track. 


e It sets the IOB and its channel program to write the block 
onto the next available track. 


e If the block does not fill the track, the module completes 
the count field for this record and issues an EXCP macro 
instruction. 


e If the block fills the track, the module sets the track-full 
indicator, completes record zero for this track, links the 
channel program that writes record zero to the channel 
program that writes the data record, and issues an EXCP 
macro instruction. 


@ If the block overflows the track, the module completes 
record zero for this track and completes a channel program 
to write record zero, completes the count field and channel 
program for the segment that fits on the track, and 
poe, vee the identification for record one of the next 

rack. 


® It repeats the preceding until a segment is left that does 
not overflow a track. For the final segment, the module 
operates as it would for a block that fits on the track. 


¢ On return of control from the 1/0 supervisor, the module 
returns control to the routine from which it was received. 


READ/WRITE Module IGGO19DK: (SYSIN/SYSOUT): Module IGGO1LODK 
interfaces with a job entry subsystem to obtain records from the 
system input stream or to pass records to the system output 
stream for a BSAM processing program. The OPEN executor selects 
and loads this module if the open parameter list specifies: 
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Input, output, INOUT, OUTIN (€X%, DATA, or SYSOUT coded in the 
DD statement) 


the DCB specifies: 
READ, WRITE 
Fixed, undefined, or variable-length records 


module consists of READ and WRITE routines and a CHECK 


routine (CSYSOUT only). The SAM module, IGGO017BB, processes the 
CHECK macro instruction for SYSIN (see Figure 17 on page 106). 
(See Diagram M for an overview of SAM-SI processing for BSAM. ) 


The 


The 


READ routine operates as follows: 


It receives control after a READ macro instruction is issued 
in the processing program. 


The RPL is initialized and the DCB is examined to determine 
if blocked records are specified. If they are, the number 
of I/0 operations specified in the I/0 counter field 
CCIIOCNT) is determined by the DCB block size and record 
length. If the records are not blocked, the I/0 counter 
field is set to l. The format of the CICB is shown in JES3 


Data Areas microfiche. 


A JES GET request is issued. The request is issued as many 
times as is necessary to satisfy the count in the 0 
counter field. The return code passed by the job entry 
subsystem in register 15 is checked by the READ routine. 


If an end-of-data condition is detected, the DECSDECB is 
posted with X'42" and control is returned to the processing 
program. The DECSDECB is posted with X'41' for a permanent 
error. 


If the return code indicates a successful completion, 
control is returned to the precesesng program with the 
DECSDECB posted with X'7F 


WRITE routine operates as follows: 


It receives control after a WRITE macro instruction is 
issued in the processing program. 


The RPL is initialized and the number of [70 operations 
required to process the WRITE macro instruction is 
determined. The number is placed in the I/0 counter field 
CCIIOCNT) of the CICB. 


If the DCB record format indicates ASA or machine control 
characters, then the control character is checked to 
determine if it is a Composed Page Data Stream control byte. 
In this case, the ACB data stream indicator is set 

tc asa before passing control to the job entry subsystem 


A JES PUT request is issued. The request is issued as many 
Sper as necessary to satisfy the count in the I/0 counter 
ield. 


When processing is completed, control is returned to the 
processing program. The ECB is set to X*7F* for a normal 
completion and a X*'41* for an error. 
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A CHECK routine synchronizes the execution of channel programs 
with that ‘of the processing program. When the processing 
program issues a READ or WRITE macro instruction, control 
returns to the processing program from the READ or WRITE 
routine. This occurs when the channel program has been 
scheduled for execution or, if reading paper tape, when the 
buffer has been filled and the data converted. To determine the 
state of execution of the channel program, the processing 
program issues a CHECK macro instruction; control returns to the 
processing program from ‘the CHECK routine if the channel program 
was executed successfully, or if it was executed successfully 
after the CHECK routine caused volume-switching. For permanent 
errors, control passes to the processing program's SYNAD 
routine. Reading or writing under BSAM, the SYNAD routine may 
continue processing the data set by returning control to the 
CHECK routine; writing in the create-BDAM mode, processing 
cannot be resumed. 


If the American National Standard Code for Information 
Interchange CASCII}) is used and input is specified, the check 
module issues an XLATE macro instruction which translates the 
entire input buffer from ASCII form to EBCDIC form. If format-D 
records are‘ specified, the record descriptor words are first 
converted from decimal to binary. For format- D records when 
BUFOFF # L, the length of the record read is calculated and 
placed in the DCB LRECL field. 


Figure 17 on page 106 lists the available CHECK routines and the 
conditions that cause a particular module to be used. The OPEN 
executor selects one of the six routines, loads it, and places 
its address into the DCBCHECK field. For example, Figure 17 
shows that module IGGOLODC is selected and loaded if a WRITE for 
a BDAM create is specified. 





Access Method Options Selections 


Input 


* or DATA specified on DD 
statement 


Output X X 


SYSOUT specified on DD X 
statement... 


INOUT, OUTIN X | 
_ Update | X 


WRITE X 

WRITE (Load) (Create-BDAM) X xX 
Variable-length spanned record 

forma 

CHECK Modules 

IGGO19BB | BB BB 
IGGO19BI BI 


- 166019BS : BS 





Figure 17 (Part 1 of 2). Modules Selector—CHECK Modules 
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Access Method Options Selections 


IGGO19DC DC 
IGGO19DK? DK 


Figure 17 (Part 2 of 2). Modules Selector-—CHECK Modules 


Note to Figure 17: 


i The CHECK routine described in this section is part of the 
BSAM Beosesse oe module IGGO19DK listed in Figure 16 on 
page 


CHECK Module IGGOI9BB: Module IGG019BB synchronizes the 
execution of the channel program to that of the processing 
program, and responds to any exceptional condition remaining 
after the 170 supervisor has posted execution of the channel 
program in the IOB. If ASCII coding is used, the entire input 
buffer is translated from ASCII to EBCDIC. If ISO/ANSI/FIPS 
spanned record format (DS/DBS) is used, the 5-byte ISO/ANSI/FIPS 
segment control word (SCW) is converted to the IBM 4-byte 
segment descriptor word (SDN), which leaves an unused byte at 
the beginning of each segment. If a SYSIN data set is being 
processed and an error condition is detected, control is passed 
to the SAM-SI SYNAD routine, IGGOI19AH. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input, output, INOUT, or OUTIN 
and the DCB specifies: 

READ or WRITE 
The module operates as follows: 


@ It receives control when a CHECK macro instruction is 
encountered in a processing program. 


e A test is made to determine if a SYSIN data set is being 
processed. 


6 If SYSIN was not specified, processing continues in the 
normal manner. 


6 If SYSIN was specified, the completion code in the ECB is 
tested. 


- If a completion code of X*7F* was returned, control is 
returned to the processing program. 


- If a completion code of X'42' was returned, indicating 
an end-of-data condition, the EOV SVC (55) is issued. 
For concatenated data sets, control is returned to this 
routine. If DCBOFLGS specifies "unlike" attributes, 
control is returned to the calling program immediately. 
Otherwise, the read routine indicated in DCBREAD is 
entered to reschedule the request. Control is returned 
to ee eee upon completion of CHECK processing for this 
request. 


_ If any other completion code was returned, module 
IGGO19AH is loaded and entered with a BALR instruction. 
This is the error-processing module for SYSIN/SYSOUT. 
(See Figure 12 on page 67). The error-processing module 
is deleted if control is returned to the CHECK module. 
(User SYNAD routine may not return control.) 
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-@ It tests the DECB for successful execution of the channel 


program. 


e@ If the channel program was executed normally, the module 
returns control to the processing program. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


e If the channel program encountered an error condition in its 
execution, the module issues an SVC 55 instruction. Two 
types of returns from the EOV routine are possible: 


= If the EOV routine determines the error condition to be 
an EQV condition, the routine passes control to the 
end-of-volume routine of O/C/EOV for volume switching. 
That routine passes control to the EOV/new volume 
routine, which reschedules the purged channel programs; 
this routine then returns control to the CHECK module. 


~ If the EOQV routine determines the error condition to be 
a permanent error, the routine returns control to the 
CHECK module immediately. Control is then passed to the 
processing program's SYNAD routine. If the SYNAD 
routine returns control to the CHECK routine, the 
routine issues a second SVC 55 instruction. The routine 
treats this as an ACCEPT error option, implements it, 
and returns control to the routine, which then returns 
control to the processing program. 


CHECK Module IGGO19BI (Update): Module IGGO019BI synchronizes 
the execution of a BSAM update channel program to the progress 
of the processing program. A BSAM update channel program either 
writes data from a buffer or reads data into a buffer. 


The module also processes permanent errors and end-of-volume 
conditions. The OPEN executor selects and loads this module if 
the OPEN parameter list specifies: 


Update 
and the DCB specifies: 
READ 
The. module operates as follows: 


e It receives control when the processing program uses the 
CHECK macro instruction. 


e It tests the ECB in the DECB for successful execution of the 
channel program associated with that DECB. 


e If the channel program has not yet completed processing, the 
module issues a WAIT macro instruction. 


e If the channel program has been executed normally, the 
module returns control to the processing program. 


@ If the channel program encountered an error condition in its 
execution, the module tests to determine if the error is an 
EOVY condition. 


-e If the error is an EOV condition, the module sets an 
indicator to show that this entry is from the CHECK module 
ane fees control to the processing program's EODAD 
routine. 


® If the error is not an EOV condition the module issues an 
SVC 55 instruction. 


_@ On return of control from the EOV routine, the CHECK module 
passes control to the processing program's SYNAD routine. 
If the SYNAD routine returns control to the CHECK routine, 
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the routine issues a second SVC 55 instruction. The routine 
treats this as an accept-error option, implements it, and 
returns control to this routine, which then returns control 
to the processing program. 


CHECK Module IGGO19BS (Create BDAM): Module IGG019BS 
synchronizes the execution of the channel program (to write a 
block for a BDAM data set) to the progress of the processing 

; program, and responds to exceptional conditions encountered in 
the execution of the channel program. The OPEN executor selects 
and loads this module if the DCB specifies: 


WRITE CLoad mode) 
Variable-length spanned record 
BFTEK=R 

The module operates as follows: 


e It receives control when the processing program uses the 
CHECK macro instruction. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


® If a user specifies WRITE-SFR, the next record address C(CTTR) 
is supplied in the next address field of the DECB. 


® If the execution of the channel program encounters a 
permanent error condition, the module passes control to the 
processing program's SYNAD routine. If control is returned 
from the SYNAD routine, or if there is no SYNAD routine, the 
module issues a DMABCOND macro instruction to ABEND. 


e If the WRITE routine encounters an EOV condition and 
therefore does not request scheduling of the channel program 
for execution, this module issues an SVC 55 instruction. On 
return of control, this module tests for completion of the 
channel program. 


CHECK Module IGGO19DC (Create-"“BDAM): Module IGG019DC 
synchronizes the execution of the channel program to write a 
block for a BDAM data set to the progress of the processing 
program, and responds to exceptional conditions encountered in 
the execution of the channel program. The OPEN executor selects 
and loads this module if the DCB specifies: 


WRITE CLoad mode) 
The module operates as follows: 


e It receives control when the processing program uses the 
CHECK macro instruction. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


6 If the channel program executed without error, the module 
returns control to the processing program. 


® If the execution of the channel program encountered a 
permanent error condition, the module passes control to the 
processing program's SYNAD routine. If control is returned 
from the SYNAD routine, or if there is no SYNAD routine, the 
module issues a DMABCOND macro instruction to ABEND. 


e If the WRITE routine encountered an EOV condition and 
therefore did not request scheduling of the channel program 
for execution, this module issues an SVC 55 instruction. Qn 
return of control, this module tests for completion of the 
channel program. 
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CHECK Module IGGOI9DK (SYSOUT): The CHECK routine in this 
module receives control after a CHECK macro instruction is 
issued in the processing program for a SYSOUT data set. (See 
Diagram M for an overview of JES compatibility interface 
processing for BSAM.) 


The CHECK routine operates as follows: 
€ The return code in the DECSDECB is tested. 


- If a completion code of X'7F* is found, control is 
passed back to the processing program. 


a If a completion code of X'41'" is found, indicating an 
I/0 error, module IGGO19AH Cerror-processing module for 
SYSIN/SYSOUT; see Figure 12 on page 67) is loaded and 
entered with a BALR instruction. The error-processing 
bab is deleted if control is returned to the CHECK 
routine. 


e Control is returned to the processing program. 


BSAM CONTROL ROUTINES 


A control routine receives control when a control macro 
instruction (for example, CNTRL, NOTE, POINT, BSP) is used in a 
processing program or in another control routine. BSAM control 
routines (which include those available in QSAM) pass control to 
the I/G supervisor, another control routine, or return control 
to the processing program directly. BSAM control routines cause 
the physical or logical positioning of I/0 devices. 


There are three types of BSAM control routines: 


e Routines that are loaded into processing program virtual 
storage by the OPEN executor CCNTRL, NOTE/POINT). 


e Routines that are loaded into supervisory transient area by 
an SVC instruction in a processing program macro expansion 
or in another control routine, such as BSP or track balance. 
See "SVC Routines” on page 154. 


® Routines that are inline macro expansions in the processing 
program (PRTOV). 


Routines that are loaded by the OPEN executor are mutually 
exclusive; that is, only one of them can be used with one DCB. 
The PRTOV macro expansions result in instructions that set or 
test bits that cause branching in either the processing program 
or in an appendage. 


Figure 18 on page 111 and Figure 19 on page 111 list the various 

kinds of control routines and the conditions that cause them to 
gain control. Figure 18 shows the access condition options that 
seus the OPEN executor to load a control routine for use with a 
CB. 


Figure 19 lists the different macro expansions constructed by 
the assembler. 
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Access Method Options Selections 


Note/Point xX X 

Chained scheduling 

CNTRL X X X X 
Direct-access storage X 

Magnetic tape X X X 

Card reader X 

Printer X 


3525 Cprinting) X 


Control Modules 

IGGO1LIBD BD 

IGGOI9BE BE 

IGGO19BK BK 

IGGO19OBL BL 

IGGO19CA? CA 

IGGO19CB? CB 

IGGOLOFA! FA 

Figure 18. Module Selector—Control Modules Selected and Loaded 
by the Open Executor 

Note to Figure 18: 


2 These routines are also used in QSAM; see Figure 14 on 
page 95 for a description of these routines. 


Number of 
: Macro 

Macro Instructions Expansions 
PRTOV—User exit l 
PRTOV—No user exit l 


Figure 19. Control Routines that Are Expansions of Macro 
Instructions 
Notes to Figure 19: 


These routines are also used in QSAM; see the QSAM section 
for a description of the routines. 


This figure duplicates Figure 15 on page 95; it is repeated 
here to identify all control routines available in BSAM. 
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Control Module IGGO19BD (NOTE/POINT~"Magnetic Tape): OPEN 
executor selects and loads this module if the DCB specifies: 


POINT 
Magnetic tape 
This module consists of two routines: NOTE and POINT. 


NOTE ROUTINE: The NOTE routine in module IGGOLOBD presents the 
contents of the DCBBLKCT field of the DCB to the processing 
program and returns control to the processing program. 


POINT ROUTINE: The POINT routine in module IGGO1LOBD positions 
the “re at the block for which the NOTE macro instruction was 
issued. 


The POINT routine operates as follows: 


6 It receives control when a POINT macro instruction is 
encountered in a processing program. 


e It constructs a channel program to read forward or backward 
one block. 


e It tests for the bypassing embedded DOS checkpoint records 
option by testing bit 3 of the DCBOPTCD field. If the 
option is found to have been specified, the routine issues a 
GETMAIN to obtain 20 bytes and modifies the CCW to read the 
first 20 bytes of each block into the obtained virtual 
storage while performing recording positioning. The 
suppress~incorrect-length-indication bit is set in the CCW. 
The actual bypassing of any embedded DOS checkpoint records 
is performed by either channel-end appendage IGGOILSEI or 
IGGOLOEJ. Module IGGOI19BD uses the FREEMAIN macro 
en to obtain virtual storage prior to returning to 

e user 


e It passes the channel program for execution the number of 
times required to position the tape at the desired block. 


e It follows the last read channel program by a NOP channel 
program to obtain device end information for the last 
spacing operation. 


® It returns control to the processing program, unless a 
tapemark, load point, or permanent error is encountered in 
one of the executions of the read channel program. In that 
case, the routine sets the DCBIFLGS field to indicate a 
permanent error, before returning control to the processing 
program. (Subsequent processing by the READ or WRITE 
routine to cause scheduling of channel programs for 
execution results in their not being scheduled. On the next 
entry into the CHECK routine, it detects and processes the 
error condition. ) 


Control Module IGGO19BE (CNTRL: Space to Tapemark, Space Tape 
Records): Module IGGOLOBE positions magnetic tape at a point 
within the data set specified by the CNTRL macro instruction. 
The eee executor selects and loads this module if the DCB 
specifies: 


CNTRL 

Magnetic tape 
The module consists essentially of two routines: one for 
spacing forward or backward to the tapemark (the FSM/BSM 


routine), and one for spacing forward or backward a number of 
tape records (the FSR/BSR routine). 


112 MVS/XA SAM Logic LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials — Property of IBM 


The 


The 


FSM/BSM routine operates as follows: 


It receives control when a CNTRL macro instruction is 
encountered in a processing program. 


It constructs a channel program to space to the tapemark in 
the desired direction. 


It issues an EXCP macro instruction for the FSM or BSM 
channel program. Control returns to the routine at channel 
end for the FSM/BSM channel program. 


It issues an EXCP macro instruction for a NOP channel 
program to obtain device-end information from the FSM/BSM 
channel program. 


It issues an EXCP macro instruction for a BSR or FSR channel 
program to position the tape within the data set after the 
FSM/BSM channel program encounters a tapemark. 


It issues an EXCP macro instruction for a NOP channel 
program again to obtain device-end information from the 
BSR/FSR channel program. The routine then returns control 
to the processing program. 


FSR/BSR routine operates as follows: 


It receives control when a CNTRL macro instruction is 
encountered in a processing program. 


It constructs a channel program to space one record in the 
desired direction. 


It tests bit 3 of the DCBOPTCD field for the bypassing 
embedded DOS checkpoint records option. If the option is 
found to have been specified, the routine issues a GETMAIN 
to obtain 20 bytes and modifies the CCW to read the first 20 
bytes of each block into the obtained virtual storage while 
performing record positioning. The suppress-incorrect- 
length indication bit is set in the CCN. The actual 
bypassing of any embedded DOS checkpoint records is 
performed by either channel-end appendage IGGO19EI or 
IGGO19EJ. Module IGGO19BD uses the FREEMAIN macro 
ane ee de eon to obtain virtual storage prior to returning to 
e user. 


It reduces the count passed by the control macro instruction 
and issues an EXCP macro instruction for the FSR or BSR 
channel program. 


When the count is zero, it issues an EXCP macro instruction 


for a NOP channel program to obtain the device-end 


information from the last FSR/BSR channel program. The 
routine then returns control to the processing program. 


If a load point is encountered during spacing, the routine 
returns control to the processing program. 


If a tapemark is encountered during spacing, the routine 
repositions the tape to a point within the data set by 
reverse spacing one block and returns control to the 
processing program. 


If a permanent error is encountered during spacing, the 
routine issues a BALR instruction to pass control to the 
SYNAD routine, if one is present; if not, it issues an ABEND 


macro instruction. 
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Control Module IGGO19BK (Note/Point-~Direct Access-Special): 
This module contains the NOTE and POINT routines for 
direct-access processing. The OPEN executor selects and loads 
this module if the DCB specifies: 


POINT 


Direct-access storage 


NOTE ROUTINE: The NOTE routine in module IGGO1OBK finds the 
full direct-<access device address (FDAD) for the last block read 
or written, converts it to a relative address of the form TTR, 
and presents that value to the processing program. 


The NOTE routine operates as follows: 


® It receives control when a NOTE macro instruction is 
encountered in a processing program. 


e It obtains the FDAD value used by the channel program last 
executed. The location of this address depends on which 
macro instruction. the last channel program implemented. 


@ If the macro instruction is READ and more than one buffer is 
| used, the channel program last executed places the FDAD 
value into the IOBSEEK field in the IOB. 


e If the macro instruction is READ and only a single buffer is 
used, the channel program last executed places the FDAD 
value into the DCBFDAD field of the DCB. 


e If the macro instruction is WRITE, the end-of-block routine 
Places the FDAD value into the DCBFDAD field. 


e It issues a BALR instruction to pass control to the IECPRLTV 
routine, which converts full addresses into relative 
addresses. 


e It returns the address and control to the processing 
_ program. 


POINT ROUTINE: The POINT routine in module IGGO1OBK establishes 
the full direct-access device address (FDAD) used by the channel 
Program to read or write the block noted. 


If the records are fixed-length standard format, the record 
number is passed to the resident sector routine to compute the 
sector value. If the record format is not fixed-length standard 
noes the value 0 is placed in the byte used by the set-sector 


The POINT routine operates as follows: 


® It receives control when a POINT macro instruction is 
encountered in a processing program. 


® It issues a BALR instruction to pass control to the IECPCNVT 
routine which converts the relative address to the full 
address and returns control to the POINT routine. If the 
processing program passed an invalid relative address, the 
executor sets the DCBIFLGS and the IOQBECBCC fields to show 
that an addressing error occurred, before returning control. 
The CHECK routine finds the error and processes accordingly. 


® It establishes the actual value to be used by the next 
channel program by testing the fourth byte of the relative 
address TTRZ. If the value of Z is zero, the full address 
is decreased by 1; if Z2 is 1, the address calculated by the 
convert routine is left unchanged. For an explanation of 
how the value of Z is ot see the description ot =e coe 
macro instruction in dminis ion: Macro 
Reference. 
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e It inserts the value into the DCBFDAD and IOQBSEEK fields if 
track overflow or update is being used. It sets the 
DCBOFLGS field to show that the contents of the DCBTRBAL 
field are no longer valid. 


@ It determines if the new full disk address references a new 
device address (that is, a new UCB). If a new device is 
addressed, SVC 25 is issued to update the IOBSEEK field in 
the SAMB's IOB. Control then returns to the processing 
program. 


Control Module IGGOI9BL (NOTE/POINT—Nagnetic Tape--Chained 
Scheduling): Module IGGOI9BL is selected and loaded by the Open 
executor if the DCB specifies: 


POINT 
Magnetic tape 
Chained scheduling 
The module consists of two routines: NOTE and POINT. 


NOTE ROUTINE: The NOTE routine in module IGGOLSBL presents the 
contents of the DCBBLKCT field of the DCB to the processing 
program and returns control to the processing program. and 
returns control to the processing program. 


POINT ROUTINE: The POINT routine in module IGGO19OBL positions 
betel at the block for which NOTE was issued. It operates as 
ollows: 


® It receives control when a POINT macro instruction is 
encountered in a processing program. 


e A channel program is constructed to read forward or backward 
one block. . | 


® The channel program is passed for execution the number of 
times required to position the tape at the desired block. 


e The last spacing channel program is followed by a NOP 
channel program to obtain device-end information for the 
last spacing operation. 


® Control is returned to the processing program. If a 
tapemark, load point, or permanent error is encountered in 
the execution of one of the channel programs, the routine 
sets the DCBOFLGS field to indicate a permanent error. 
(Subsequent attempts by the READ or WRITE routine to couse 
scheduling of channel programs for execution results 
their not being scheduled. On the next entry into the "CHECK 
routine, the condition is detected and handled.) 


Control Module IGX00030 (MSGDISP-——Magnetic Tape—Display message 
to tape drive): This module receives control through an SVC 109 
when the MSGDISP macro is issued. 


This module builds an eight character message partially supplied 
by the caller and displays it on the screen for the tape drive, 
either through its own I0S driver Cwhen the caller wants to wait 
for I/0 completion) or through the MISCELLANEOUS IOS driver 
(when the caller does not want to wait for I/0 completion). It 
provides several ways of displaying different types of messages 
corresponding to the type of request made by the caller through 
the MSGDISP macro as follows. 


dope be It displays a 6 character message supplied by the 
caller. | 


VERIFY: It displays a 6 character volume serial number and one 
character label type to signify that the volume is accepted. 
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MOUNT: It displays the character "M" together with the volume 
epee and label type to request that the operator mount the 
volume. 


DEMOUNT: It displays a disposition character “"K", "R"™, or "Dp" 
for keep, retain, and demount respectively, to inform the 
operator of the disposition of the currently mounted volume. 


RESET: It clears all messages in the display area and displays 
the internal state of the hardware. 


GEN: It displays one or two eight character message(s), 
eee on whether one or two message(s) are supplied by the 
caller. 


Control Module ted ated (SYNCDEV—Magnetic Tape-—"Synchronization 
of Buffered Write Data): This module gets control through an 
SVC 109 when the SYNCDEV macro is issued. 


This module uses the NOTE ABS service to determine the buffering 
depth of the device. It then does the following, depending on 
the type of service requested: 


INQUIRY ROUTINE: It returns the buffering depth to the caller. 


SYNCHRONIZATION ROUTINE: If the buffering depth exceeds the 
limit specified by the caller, it builds and executes a channel 
program to force synchronization on the device. Otherwise, it 
returns the buffering depth. 


Control Module IGX00032 (NOTE/POINT~Magnetic Tape-—Physical 
Block ID): This module gets control when a NOTE or POINT macro 
is issued with the ABS parameter specified. 


This module provides two functions: 


NOTE ROUTINE It builds and executes a channel program to record 
the physical block IDs of the record that is about to enter or 
leave the buffer. 


POINT ROUTINE: It builds and executes a channel program to 
position the tape to the record whose physical block ID is 
supplied by the caller. (This physical block ID may be obtained 
from a previous NOTE.) 


ASIC ONED ACCESS OD _(BPAM) ROUTINES 


A partitioned data set has a directory and members. The 
directory is read and written using BPAM routines, whereas the 
members are read and written using BSAM routines. (See the BSAM 
portion of this publication.) A processing Program using BPAM 
routines for input from the directory is presented with the 
address of a member in a channel program or ina table; for a 
processing program using BPAM for output to a directory, the 
routines determine the address of the member and record that 
address in the directory. 


BPAM routines store and retrieve entries in the directory and 
convert direct-access addresses from relative to absolute. 
Directory entries are entered and found by constructing channel 
programs that search the directory for appropriate entry blocks 
and by locating an equal, or higher, entry within the block. 
Address conversion routines refer to the data extent block CDEB) 
to determine the address value complementary to the given value. 


BPAM routines (see Figure 20 on page 117) differ from BSAM and 
QSAM routines in that BPAM routines are not loaded at OPEN time; 
he STOW routine is loaded at execution time, all the coding for 
FIND CC option) is a macro expansion, and the FIND (D 
option)/BLDL routine and the converting routines are in virtual 
she Mk Figure 20 on page 117 shows how these routines gain 
contro 
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See "SVC Routines" for descriptions of BPAM routines. 





Module ; Instruction 
BPAM Routines Number Residence Passing Control 
STOW IGCO002A Link pack SVC 21 
area 
STON IGGO2Z10A Link pack XCTL from 
area IGCOO02ZA 
STON IGGO21AB Link pack XCTL from 
area IGGOZIL0A 
FIND (C option) (Macro User FIND (C option) 
Expansion) program 
FIND (D option) | IGc018 Nucleus SVC 18 
BLDL IGC018 Nucleus SVC 18 
Convert TTR IGC018 Nucleus BAL IECPCNVT 
Convert MBBCCHRR IGco18 © Nucleus BAL IECPRLTV 
Convert sector Iccols | Nucleus BAL IECOSCRI 


Figure 20. BPAM Routines Residence 


UMMY DATA SE 


Dummy Data Set Module IGGO19AV: Dummy data set module IGGO19AV 
operates as follows: 


It receives control when a sequential access method macro 
instruction refers to a dummy data set. For a dummy input data 
set, the module passes control to the user's EODAD routine; for 
a dummy output data set, the module returns control to the 
Alrtaare piles program immediately without scheduling any I/0 
operation. 


SEQUENTIAL ACCESS METHOD EXECUTORS 


Sequential access method executors are routines that receive 
control from, pass control to, or return control to I/0 support 
routines. For a description of I/0 support routines, see 
Open/Close/E0QV Logic. Figure 21 on page 117 indicates the other 
figures that describe the OPEN and CLOSE executors. Executors 
perform processing unique to an access method when a data 
control block is being opened or closed. 


OPEN executors 


CLOSE executors 


Executor Number Receives Control From Via Passes Control To 
OPEN See Figures 22, 23, See Diagram E XCTL (WTG See Diagram E 
and 24 | Table) 


Figure 21 (Part 1 of 2). Sequential Access Method Executors—Control Sequence 
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Executor Number Receives Control From Via Passes Control To 
CLOSE See Figure 25 Close routine XCTL CNTG Close routine 
Table) See Figure 25 





Figure 21 (Part 2 of 2). Sequential Access Method Executors—Control Sequence 


The executors reside in the link pack area. It is the OPEN 
executors that load the access method routines into the 
alae program area for later use during processing program 
execution. 


The OPEN executor is entered from the OPEN routine of I/0 
support, and returns control to that routine. It constructs the 
data extent block (DEB), the buffer pool if requested, 
input/output blocks (I0OB), the channel programs, and, if chained 
channel-program scheduling is used, interruption control blocks 
CICB). It selects and loads the access method routines to be 
used with the data control block (DCB) being opened. 


The CLOSE executor is entered from the CLOSE routine of I/70 
support, and returns control to it. The executor handles any 
pending channel programs and releases the virtual storage used 
by the IOBs, ICBs, and channel programs. 


DCB RELOCATION TO PROTECTED WORK AREA 


Before control is passed to SAM OPEN executors, the DCB is 
copied to the OPEN/CLOSE/EOV work area to ensure the integrity 
of DCB vectors that could be changed by the user during system 
open time or system close time. The DCB copy is updated by SAM 
executors during open processing and is used to refresh the 
user's DCB prior to the initiation of any I/0 operation. (The 
user's DCB is used for all I/0 initiated during open, except in 
the validation modules, which use the DCB copy.) All I/0 is 
completed and the SAM work area, IOBs, and the DEB are updated 
to reflect the location of the user's DCB within the user's 
address space before control is returned to common open. SAM 
executors refresh the user's DCB from the work area copy. 


OPEN EXECUTORS 


The OPEN executors are grouped into three stages. Those in the 
first stage receive control from the OPEN routine of I/0 
support. These executors pass control to one of the stage 2 
executors, or the last load of the OPEN executors. The stage 2 
executors in turn, pass control to the stage 3 executors. Stage 
3 executors return control to the OPEN routine. Before 
relinquishing control, each executor specifies the next executor 
to be called for the data set being opened, and also examines 
the where-to-go (WTG) table to determine whether other data sets 
being opened at the same time need its services. To pass 
control to the next executor that is to process the data set, 
each executor issues an IECRES macro with the XCTL and 
BRANCH=DIRECT parameters. This macro generates a branch to the 
OPEN/CLOSE/EQV service routine, IFGO19RA, which branches to the 
next executor. For a description of the WIG table, see 


Open/Close/EQV Logic. 


When an ABEND is to be issued by an OPEN or CLOSE executor, it 
issues a DMABCOND macro to prepare to pass control to IGG0196M. 
or IGGO206M. CThese two problem determination modules are 
described in Open/Close/EOV Logic.) A DMABCOND macro is issued 
instead of an ABEND macro because the problem determination 
routines write a message to the user, issue the GTRACE macro to 
trace pertinent control blocks, and call the optional DCB ABEND 
exit routine before possibly issuing an ABEND macro. 
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System modules that build, delete, or modify data extent blocks 
CDEBs), use DEB validity checking, a separate routine that 
protects the user's data from unauthorized access. The modules 
must maintain a table of DEB pointers in protected storage by 
use of the DEBCHK macro instruction, described in Data 
Administration. The logic of the DEBCHK routine is in 


Open/Close/EOV Logic. 


The OPEN executors maintain an audit trail in the OPEN work area 
to indicate which resources have been acquired. This audit 
trail is interrogated by the force CLOSE executor when a force 
close situation arises. 


The message text for all messages issued by the OPEN executors 
are contained in the message CSECT. Before issuing a message, 
eee must extract the message text from the message 


Diagram E shows the flow of control among the three stages of 
OPEN executors. 


Stage 1 OPEN Executors 


Stage 1 OPEN executors construct data extent blocks (CDEBs), 
build buffer pools, and issue DEBCHK (CTYPE=ADD) macros. Ifa 
printer with the universal character set (€UCS) feature and/or a 
forms control buffer CFCB) is specified, the executors call 
SETPRT to perform printer setup. 


If UCS/FCB images are not specified in the user's JCL, the 
executors must ensure that the current images, as specified by 
the UCB UCS extension, are default images. If none are loaded 
or the loaded images are not default images, the operator must 
specify which images are to be used. 


The OPEN routines determine which executor is required to begin 
processing of each DCB specified in the OPEN parameter list. 
For SAM processing, the entry placed in the WTG table is 
IGGO1L9JLA for an actual data set, IGG0191C for a dummy data set, 
and IGG0O199F for a SYSIN or SYSOUT data set. 


The executor for the first entry in the WIG table gets control 
from the common OPEN routines. 


As each stage 1 executor completes its processing, the name of 
the next executor (for the DCB being processed) is placed in the 
WTG table. Then a check is made to determine, for each entry in 
the OPEN parameter list, if another DCB requires the use of the 
executor now in control. If so, the executor is reentered as 
many times as necessary to process all of the entries in the WTG 
table requiring this executor. If no other DCBs require this 
executor, control is passed to the next executor that is 
specified in the WTG table (starting from the top of the list) 
for a DCB that has not completed its processing. For a 
particular DCB, all of the stage 1 executors are executed before 
control is passed to a stage 2 executor. 


Figure 22 on page 119 lists the access method conditions that 
cause different stage 1 executors to be selected, loaded, and to 
receive control after loading. The executors are described in 
the text that follows. The order of presentation is the same as 
that shown in Figure 22 under Executors. 


In Figure 22, an X in a column represents a condition that must 
be satisfied for the executor marked in that column. A blank in 
the upper portion of the table indicates that either the 
condition is not required for selection or not examined at this 
time. The table should be used in conjunction with the flow of 
eoneros information in Diagram E, SAM Flow of Control for OPEN 
executors. 
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Access Method Options 
Actual data set 


Dummy data set 


%, DATA, or SYSOUT in DD 
statemen 


3505 COMR/RCE) or 3525 
Direct-access device 
Printer with UCS Feature 


(1405, 32035, 3211, 3262 
Model 5, 3800, 4245, 4248) 


i 


Printer with forms control 
buffer (3203, 3211, 3262 
Model 5, 3800 4245, 4248) 
Buffer pool required 


User totaling specified 


IGGO191A 
1GG0191B 
IGG0191C 
IGG01911 
IGGO191N 
1GG0191Y 


IGG0196A 
IGG0196B 
IGG01961 
IGG0196Q 
IGGO197L 
IGG0197M 
IGG01970U 
IGG0199F 
IGG0199G 
IGGO199W 
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Selec- 
tions 


X X 
X 


xx x |x x x | x x [x x x_ 
ee Eee eee 
ee ee ee 
x {| x x 

a a a 
ee 
1A 1A 1A 1A 1A 1A 1A 1A | 1A 1A 1A 
1B 1B 1B 1B 1B 1B 1B 1B | 1B 1B 1B 

a Ee ee 

pin | stn 

| avay fayiy 

313131 | 31 31 31 | 31 34 | 31 31 31 | 

6A 6A 6A 6A 6A 6A 6A 6A | 6A 6A 6A 

6B 6B 6B 6B 6B 6B 6B 6B 6B 


es ee ee 
a ee 
7 ee ae 


Figure 22. OPEN Executor Selector——Stage l 
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Stage 1 OPEN Executor IGGO191A: Executor IGGOLOLA receives 
control from the OPEN routine unless the DD statement is DUMMY. 
CIf the DD statement is DUMMY, executor IGGO19JIC receives 
control from the OPEN routine. ) 


The executor operates as follows: 


€ It tests the OPEN macro option against the DCBMACREF field. 
It issues an 013 ABEND via a DMABCOND macro if any of the 
conditions listed are found. The conditions are: 


For QSAM: 


that buffer length is not smaller than block size if 
the buffer length is specified 


that the block size is not at least 4 bytes larger 
than queaene ecore length for variable-length 
records 


that logical-record length (Cif specified) is not 
sinks to block size for fixed-length unblocked data 
sets 


For BSAM and QSAM: 


that block size is not an even multiple of logical 
record length for fixed-length blocked data sets 


e It performs a test to determine if the block size is 
integral multiple of the logical record length CLRECL) ere 
QSAM with fixed blocked records or BSAM data sets. If the 
block size is not an integral multiple of LRECL, QSAM data 
sets are abnormally terminated with an abend (013). 


8 If search-direct has been requested COPTCD=Z in the DCB and 
a direct-access device is being used), the executor 
determines if search-direct can be supported (that is, not 
VS, UT, FBS, etc.) and sets the bit in JFCBMASKt6 to X*08* 
if the request can be honored. For a 3890 MICR device, it 
will issue a DMABCOND macro instruction if RECFM, BLKSI, 
LRECL, or BUFL are specified incorrectly. 


@ The executor specifies in the WTG table that module IGG0196I 
is the next module required for this DCB. 


° It searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGG0191B: Executor IGG0191B is loaded 
after executor IGG0196A, IGGO1L9OIN or IGGOL9OLY has completed 
Processing all entries in the WTG table. 


The executor operates as follows: 

e It stores DCBLRECL in the DEB. 

e It sets DCBCNTRL to 0. 

 Qhe device table dm stored in the DCB. Frea the device 


table, the key overhead (or 0 if there are no Keys) and 
track balance are stored in the DC 


a If the JFCB indicates a partitioned data set, the DSCB and 
the DSORG field of the DCB are checked to be sure they 
specify partitioned organization. If not, a DMABCOND macro 
instruction is issued. 


@ If partitioned organization is specified: 
= For direct-access OUTPUT or OUTIN, the track balance of 


the last write, from the DSCB, is stored in the 
DCBTRBAL. 
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- For direct-access input, the member name from the JFCB 
is stored in the DEB. The routine then issues a BLDL 
macro instruction to find the extent. If BLDL returns a 
penser? return code, a DMABCOND macro instruction is 
issued. 


The executor issues a BALR to the convert routine at CVTPCNVT to 
convert the TTR to MBBCCHHR and stores it in DCBFDAD. 


® If the data set is not partitioned, DCBFDAD is set to 
DEBBINUM. If a dummy extent is indicated, the DCBFDAD + 3 
is set to X'FF* to indicate an illegal FDAD. 


@ If unit record equipment is specified, for input only and 
NOTE/POINT is requested, DCBCNTRL + 1 is set with ID of the 
‘dummy routine. 


e If LRECL is not specified, DCBLRECL is initialized for QSAM. 


e The executor specifies in the WTG table that module IGG0196B 
is the next module required for this DCB. 


® It then searches the NTG table to pass control to another 
executor. 


Stage 1 OPEN Executor aeeneene Executor IGGO191C operates as 
follows: 


e It receives control from the OPEN routine if the DD 
statement is DUMMY. 


e It issues a GETMAIN macro instruction for a DEB. 
® It does a DEBCHK, ADD, to put the DEB in the DEB table. 


@ It issues a LOAD macro instruction for IGGO1L9AV and stores 
the characters "AV' in the subroutine ID section of the DEB. 


e It issues a GETMAIN macro instruction for buffer space and 
constructs the buffers. | 


e It sets various audit trail bits. 


@ It issues a DMABCOND macro instruction if BUFLEN and BLKSIZE 
are not specified for QSAM. 


® The executor specifies in the WIG table that IGG01911 is the 
next executor for this DCB. 


Stage 1 OPEN Executor IGGO0191I: Executor IGGOI91I is loaded 
after IGG0196B, unless the OPEN executors must load UCSB or FCB 
images. In this case, it is loaded after IGG0197M. 


The executor operates as follows: 


° If a buffer pool has already been built, the executor gets 
ete. storage for a record area for QSAM logical record 
interface. 


e If the values in both the DCBBUFL and DCBBLKSI fields are 
zero, the executor issues a DMABCOND macro instruction. 


e If time sharing (TS) is specified with BSAM and DCBBUFL and 
DCBBLKSI fields are zero, it sets the length of the buffer 
to terminal line length. When QSAM is specified and DCBBUFL 
and DCBBLKSI fields are zero, it sets the length of the 
buffer to logic record length. If DCBLRECL field is also 
pedi ge sets the length of the buffer to terminal line 

eng 


e If the value in either the DCBBUFL or DCBBLKSI field is not 
zero, the executor uses that value to establish the size of 
the buffer. The value in the DCBBUFNO field determines the 
number of buffers constructed. 
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® If the DCB specifies blocked records, a unit record device, 
output, and not undefined RECFM, it turns off the 
blocked-records bit in DCBRECFM. For fixed-length records, 
it sets DCBBLKSI equal to DCBLRECL. 


® If logical record interface is required for variable-length 
spanned records processed in locate mode, the executor adds 
a length of 32 bytes plus the maximum logical-record length, 
which is specified in the DCBLRECL field for a record area, 
to the size of virtual storage required. If extended 
logical record interface (XLRI) is specified, the DCB LRECL 
value is a multiple of 1024, which is used to calculate the 
size of the record area, and the 32-byte control field is 
added. Eight more bytes (including 4 bytes of padding) are 
added to the buffer control block to store the address of 
the record area. Flags are set (X'C0") to indicate an 
extended buffer control block and the presence of the record 
area. 


e It issues a DMABCOND macro instruction if BUTEK=A is 
specified and teh processing mode is not locate. 


e It stores the length of the entire record area in the first 
word of the record area. 


e It specifies that executor IGG0193I is required for this DCB 
in the WTG table. It then searches the WIG table to pass 
control to another executor. 


Stage 1 OPEN Executor IGGO19IN: Executor IGGO19IN receives 
control after executor IGGO1I6A. It supplements executor 
IGGO196A by building the device-dependent portion of the DEB for 
direct-access devices. 


For partitioned data sets, it sets the authorized library table 
Sa the DEB if the data set is in the authorized library 
a 


If the data set resides on an MSS virtual volume, an ICBACREL 
macro is issued to allocate space on and/or stage data to a 
direct-access device. If MSS window processing has been 
requested by the user, a flag is set on in the DEBXFLG1 field in 
the DEB extension, providing the MSS data set is (1) physical 
sequential in organization, (2) allocated in cylinders, and (3) 
being processed by QSAM or BSAM for INPUT or OUTPUT only Cnot 
INOUT, OUTIN, nor UPDAT). Any errors result in abnormal 
termination (see abend code 413, return code 2C, in the 
"Diagnostic Aids" section of this manual). If a partitioned 
data set resides on an MSS virtual volume and will be opened for 
INPUT processing, the following options exist at the time the 
data set is opened: 


e To stage the entire data set to end-of-file, specify OPTCD=H 
as a DCB subparameter on the associated DD statement. 


® To stage only the directory of the data set, do not specify 
OPTCD on the associated DD statement. 


Note: The OPTCD option may only be specified on the DD 
statement; it cannot be specified with the DCB macro. 


The user label extent is not inserted into the DEB. This 
executor specifies either IGGO191B or IGGO1L9SLY as the next entry 
in the WIG table for processing the DCB, unless the DCB 

rit pee EXCP, in which case I1GG0191l1 is the next executor for 
this DCB. 


It then searches the WTG table to pass control to another 
executor. 
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Stage 1 OPEN Executor IGG0191Y: Executor IGGOI19LY receives 
control after executor IGGO196A or executor IGGO19IN when the 
user-totaling option has been specified in the DCB, that is, 
when bit 6 of DCBOPTCD is l. 


This executor operates as follows: 


It sets bit 7 of DCBOFLGS to 0 to prevent a successful open 
and issues a DMABCOND macro to write a message to the 
programmer for any of the following reasons: 


- No DCB exit list. 
- No totaling entry in DCB exit list. 
- Image area address is zero. 


® It calculates the size of the area required to save the 
user's totaling areas and issues a GETMAIN to obtain the 
space. 


@ It constructs control blocks for the work area and places 
the address of the save area in the access method portion of 
the DEB. eens 34 on page 241 describes the access method 
save area. ) 


© It loads the resident save routine IGGO19AX and places the 
ID of the save routine in the DEB and the address in the 
user-totaling save area. 


® It specifies in the WIG table that executor IGGO191B is the 
next executor required. It then searches the WIG table to 
determine the next executor to receive control. 


Stage 1 OPEN Executor IGG0193I: This executor receives control 
from IGGOI19I1I. 


The executor specifies which stage 2 executor is specified in 
the WTG table. The module selector table for stage 2 executors, 
Figure 25 on page 141, should be used to determine which stage 2 
executor is required for this DCB. 


For direct-access processing, if write load (that is, BDAM 
create processing) is not specified, IGG0193I passes control to 
pel write load is specified, IGG0193I passes control 
o : 


For other than direct~access processing, if chained scheduling 
can be supported and has been requested (with OPTCD=C), an 

rt chained scheduling executor is specified in the WTG 
able. 


If chained scheduling can be supported but has not been 
requested, tests are made to see if it can be given anyway 
without interfering with a dependence that the issuer of OPEN 
may have on normal scheduling. There are two cases in which 
OPEN cannot supply chained scheduling unless requested by the 
keyword OPTCD=C. 


1. Printer-——The PRTOV macro may be used and it does not operate 
properly with chained scheduling. 


2. Reading format-U records—With chained scheduling, the 
actual length of the record is not available. 


It then searches the WIG table to determine which executor 


receives control. The IECRES macro instruction is used to pass 
control to the next executor. 
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Stage 1 OPEN Executor IGGO196A: Executor IGG0O196A receives 
control from and supplements IGGO196I. 


The executor issues a DEBCHK CTYPE=ADD) macro to add the 
Arne created DEB address to a protected area table of DEB 
addresses. 


It completes the DEB construction initiated in OPEN executor 
IGGO196I. 


If the device type is a printer with a printer device 
characteristics table (PDCT), the DCBDEVT field contents are 
obtained from the PDCT. 


If the device type is not a printer with a printer device 
characteristics table (PDCT), the executor fills in the 
DCBDEVT field with the device type and number from the UCB. 
If unit record equipment is indicated, the UR bit in the 
DCBDEVT field is set. 


The executor specifies in the WTG table which module is the 
next one required for this DCB, as follows: 


- For direct~access—executor IGGOLIIN. 


~ If the device type is a printer with UCS feature or is a 
vecoiecon Subsystem and EXCP is specified—executor 


- If the device type is other than a printer and EXCP is 
specified-—executor [GG01911, the final module of the 
OPEN executors. 


- If the device type is tape, not input, not EXCP, and the 
user-totaling facility is specified——executor IGGOI19LY. 


- If the device type is other than a printer with the UCS 
feature or direct access, BSAM or QSAM is specified, and 
ae facility is not specified-—executor 


It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO196B: Executor IGG0196B receives 
control from and supplements IGGOLOILB. 


The executor operates as follows: 


For QSAM, DCBBUFNO is set to 5 (3 for 2540) if not 
previously specified. 


Executor issues DMABCOND macro instruction (calls problem 
determination module) if the buffer length is less than 
block size or if data set is for a printer and something 
other than output Conly) is specified. 


Determines the next executor to receive control. 


- For a time sharing (TS) task, control is transferred to 
IGG0196S unless buffers are wanted. If buffers are 
needed, the OPEN routine transfers control to IGGOI9ILI. 


- A test is made to determine if either the 3505 (without 
OMR or RCE) or 3525 is being used, just prior to the 
XCTL subroutine. If either device is being used, 
control is passed to module IGGO197L; otherwise, normal 
processing continues. 


- If the device type is a printer with the UCS feature, 
IGG0196Q@ receives control. 


- If a buffer pool is required, IGGO191I receives control. 
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~ Otherwise, IGG0193I receives control to select the stage 
2 executor. 


Stage 1 OPEN Executor IGGO196I: Executor IGG0196I receives 
control from and supplements IGGO1IILA. 


The executor operates as follows: 


6 It computes the virtual-storage requirement for the DEB and 
obtains the space. The space does not include the user 
label extent, because it is reflected in the first extent 
field of a format-1 DSCB for a physical sequential or direct 
data set. If no primary extent has been requested for an 
output data set, as shown by the contents of the DSINOEPV 
field of the DSCB, the executor sets the DCBCIND] field to 
show a volume-full condition. 


e It specifies in the WTG table that executor IGGO1I6A is the 
next executor required for this DCB. 


e It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGG0196Q: This executor initializes a 
pg? with the UCS feature or a 3800 Printing Subsystem Models 
l and 3. It receives control from IGG0196A CEXCP) and IGGO196B 
CBSAM/QSAM) 


The executor operates as follows: 


e For printers other than the 1403, it obtains storage for the 
ERP work area if one does not exist. <A use count is Kept of 
the work area. Each time the module requests storage for 
the work area, the count is incremented by 1. Each time the 
work area is released, the use count is decremented by 1 
AA use count is zero, the work area is freed by 


6 It obtains storage for a SETPRT parameter list. If the JFCB 
indicates that a JFCBE (JFCB extension for the 3800 Printing 
Subsystem) exists, the SETPRT parameter list is then 
completed using the information in the JFCBE and the JFCB. 

If the JFCBE does not exist, the SETPRT list contains zeros 
in the device-dependent fields. If the device is a 3800 
Printing Subsystem, the module turns on the SETPRT 
initialization bit, which allows the SETPRT executors to 
restore the 3800 Printing Subsystem to its hardware defaults 
before the device was set up with data set dependent 
requirements. 


® If the device is a 3800 Printing Subsystem and SETPRT is not 
successful, message JEC162I with SETPRT return codes is 
issued, followed by an abend CIEC141I 013-CC). 


If the device is not a 3800 Printing Subsystem and SETPRT 
fails, the SETPRT return code is converted to the 
appropriate internal abend code for an IEC152I B13-CC abend. 


® This executor then indicates in the WIG table the stage 2 
executor to receive control for processing the DCB. The 
module selector table for stage 2 executors, Figure 25 on 
page 141, should be used. 


Stage 1 OPEN Executor IGG0197L: Executor IGG0197L receives 
control from IGG0196B whenever the 3505 or 3525 is specified. 


The executor operates as follows: 


® It initiates registers with the addresses of the DCB, UCB, 
ECB, and CVT. 


e A — is made to determine if either OMR or RCE is being 
used. 
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® If OMR is specified, a test is made to determine if the 
device is a 3525. If the device is a 3525, control is 
transferred to IGG0197M. 


@ If either OMR or RCE is specified, the format descriptor 
record is loaded and decoded. 


e After the read-only has been executed and the format card 
has been translated, an OMR or RCE CCW is constructed and 
executed Cwrites the format of the device). 


e It specifies in the WIG table that IGG0197M is the next 
executor required for this DCB. It then searches the WNTG 
table to pass control to another executor. 


Stage 1 OPEN Executor IGG0197M: IGG0197M receives control from 
IGGO197L. 


The executor operates as follows: 


6 If an OMR or RCE format card is invalid, or if an invalid 
device is specified for ONR, this module issues a WTP 
message and an abend (004) with a return code of 05. 


® If no invalid condition exists, the executor specifies in 
Se a table the next module required for this DCB, as 
follows: 


= IGGO1L9OLI if QSAM is specified and no buffer pool control 
block exists. 


- IGGO1LO7N if either BSAM or QSAM is specified and the 
user has specified a buffer-pool control block. 


~ IGGO191I if BSAM is specified and the user has specified 
eee number but not a buffer buffer-pool control 
ock. 


® It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO1L9S9SOF (SYSIN/SYSOUT): Executor 
IGG0199F receives control when the OPEN routines (see Diagram K) 
determine that the SAM-SI executors are required to process a 
DCB for a SYSIN or SYSOUT data set (%, DATA, or SYSOUT coded in 
the DD statement). 


Note: If a device is directly allocated to the task and the 
OPEN verification subsystem interface (SSI) determines that the 
data set is to be handled by a subsystem, data management uses 
the SAM-SI executors and the SSI interfaces to access the 
device. The interface to the device subsystem is the same as 
the JES interfaces for a SYSIN/SYSOUT data set. 


The executor operates as follows: 


® It issues a GETMAIN macro instruction to obtain virtual 
storage for a JES compatibility interface control block 
C(CICB). The format of the CICB is described in JES3 Data 
Areas microfiche. 


e It constructs an ACB and an RPL in the CICB, for 
communicating with the JES, and initializes an SVC exit list 
with entries for BSP and SYNADAF SVCs. 


® It supplies defaults to appropriate DCB fields in the open 
copy of the DCB. 


e It specifies in the WTG table that executor IGG0199G is the 
next executor required for this DCB. 


® It then searches the WIG table to pass control to another 
executor. 
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Stage 1 OPEN Executor IGG0199G (SYSIN/SYSOUT): Executor 
TeaRICoe receives control from the SAM-SI OPEN executor 


The executor operates as follows: 


® The WIG table is scanned and an open list is constructed to 
open an ACB for each SYSIN/SYSOUT entry in the WNTG table. 


@ It issues an OPEN (type J) macro instruction for the ACBs 
just constructed. 


e It chains the DEB, created by OPEN for the ACB, to the DCB. 
The address of the DCB is placed in DEBECBAD, leaving 
DEBDCBAD pointing to the ACB (see Figure 36 on page 244). 


e It checks the DCB for invalid combinations of access method 
options. An abend (013) is requested (using problem 
ia aa routines) if any invalid combinations are 

ound. 


e It specifies in the WTG table that IGGO1LOIOW is the next 
executor required for this DCB. 


e It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO199W (SYSIN/SYSOUT): Executor 
Tconieee receives control from the SAM-SI OPEN executor 


The executor operates as follows: 


e It determines the buffer requirements, then obtains and 
chains buffer (Cif necessary). 


® The RPL, contained in the CICB, is initialized according to 
the record format specified in the DCB 


e It issues a GETMAIN macro instruction to obtain a work area 
for collecting segments, if necessary. 


® It specifies in the WIG table that IGGO198L is the next 
executor required for this DCB. 


e It then searches the WIG table to pass control to another 
executor. 


Stage 2 OPEN Executors 


A stage 2 OPEN executor establishes device-oriented information 
for the processing described by a DCB, and completes 
device~oriented control blocks or fields. One of the stage 2 
executors receives control for each DCB being opened; the WTG 
table identifies the executor required for each DCB. On 
conclusion of an executor's processing it enters in the WTG 
table the identification of the stage 3 executor required. 
Figure 23 on page 129 lists the access conditions that cause the 
different stage 2 executors to be loaded and to receive control. 


For direct-access operations other than write load, IGG0193B 
serves as a stage 2 and 3 OPEN executor. IGG0193B returns 
control directly to IGG0190S, the I/0 services common routine. 
phere ale builds all control blocks and loads all routines 
needed. 


The device-oriented processing performed by a stage 2 executor 
primarily consists of the construction of input/output blocks 

3, their associated channel programs, and the identification 
of the end-of-block routine required for the processing 
described by the DCB. For chained channel-program scheduling, 
executors also construct interruption control blocks CICB). 
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Figure 23 lists the access conditions that cause the different 
stage 2 executors to be loaded and to receive control. The 


executors are described in the text that follows and are in the 
same sequence as the list in the figure. 


Access Method Options 
Track overflow 
Direct-access storage 
INOUT, OUTIN 


Unit record or magnetic 
tape or paper tape 


Write-Load (Create-BDAM) 


Chained scheduling 


3890 


RCE or 


Print only and associated 
files 


TS terminal 


Open Executors?2 


< 
x< ~< 


IGGOLOIL lt it 


IGG0193B 


7N 7N 7N 
7P 7P 
7Q 7Q 


IGGO197N 
IGG0197P 
1GG0197Q 
1GG0197V 


~J 
< 


- OPEN Executor Selector-—Stage 2 


Ti 
» 
8 | 
c 
be | 
@ 
N 
WG 


Notes to Figure 23: 


2 If *, DATA, or SYSOUT is specified on the DD statement, no 
stage 2 executors are loaded. 
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é See ACF/TCAM Diagnosis Guide and ACF/TCAM Diagnosis 
Reference. 


In this figure, an X ina column represents a condition that 
must be met for the executor to be selected. A blank in the 
upper portion of the table indicates that either the condition 
is not required for selection or is not examined at this time. 
The table should be used in conjunction with the flow of control 
pores cien in Diagram E, SAM Flow of Control for OPEN 

xecutors 


Stage 2 OPEN Executor IG6G0191G: Executor IGG0191G normally 
receives control from executors IGG0193I, IGG0196Q (for 3800 
Printing Subsystem only), IGG0197F, IGG0197U, or IGGO197N. 
Under abnormal conditions, it receives control from executors 
IGGO191R, IGGO0191Q (chained scheduling not supported) if: 


e The DCB specifies BSAM or QSAM and either unit record or 
magnetic tape. 


e The OPEN macro parameter is INOUT or OUTIN and the DCB 
specifies magnetic tape. 


The executor operates as follows: 


e It computes the amount of virtual storage required for the 
IOBs, issues a GETMAIN macro instruction from subpool 0, in 
the user's key, and then sets the virtual storage for the 
IOBs to zeros. It stores the number of bytes gotten for the 
IOBs in the second word of the audit trail for force close. 


® When control is returned from GETMAIN, it sets an audit 
trail bit to indicate to the force CLOSE executor that 
storage should be freed. 


e It then tests to see if the device type for this data set is 
unit record. If so, IGGO196K is specified in the WTG table 
for this DCB and the check for other DCBs that need this 
executor is made. 


e If the device is not unit record, processing continues in 
this module. It constructs the channel programs in the IOBs 
and fills in the other fields of the IOBs. It stores the 
address of the first IOB in the DCB and sets the first I0OB 
bit in the first IOB. If there is only one IOB for this 
data set, it sets the IOB unrelated flag. 


The executor specifies in the WIG table the next executor 
required for this DCB. If the DCB specifies variable-length 
record format, the next executor is IGG01915. For the remaining 
access conditions that cause this executor to be used, the next 
executor is IGG01910. The executor then searches the WIG table 
to pass control to another executor. 


Stage 2 OPEN Executor IGGO191L: Executor IGGO191L receives 
control after executor IGG0193I if the DCB specifies: 


Create-BDAM CWrite-Load) 


The executor constructs IOBs and enters the address of the first 
IOB into the DCB. Then it loads the create-BDAM WRITE, CHECK, 
ace channel end appendages and inserts their addresses into the 


It loads the create~BDAM channel end appendage and places its 
address in the DEB appendage vector table (AVT). 


With the rotational position sensing (RPS) feature, more virtual 
storage is needed for the channel programs. This executor 
computes the extra bytes needed for the RPS channel programs and 
issues a GETMAIN. The sector bytes are placed at the end of all 
the IOBs and channel programs. The last doubleword of the . 
GETMAIN area is used for sector manipulation. The first byte is 
used by set-sector and by read sector. The second byte is used 
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as a byte of zero on which to issue a set-sector command in 
order to position at the beginning of the track. 


If track overflow is specified, the routine specifies that 
executor IGGO191M is the next executor required for this DCB. 
Otherwise, the routine specifies IGGO1I9SL as the next executor 
required. It then searches the WIG table to pass control to 
another executor. 


Stage 2 OPEN Executor IGG0191M: Stage 2 OPEN executor IGG0191M 
constructs channel programs to write track-overflow blocks using 
BSAM for a data set to be later processed by BDAM. Executor 
IGGO1I9IL identifies it in the WIG table as its successor 
executor if the DCB specifies: 


Create-BDAM (CWrite-Load) 
Track overflow 


With the rotational position sensing (RPS) feature, more virtual 
storage is needed for the channel programs. This executor 
computes the extra bytes needed for the RPS channel programs and 
issues a GETMAIN. The sector bytes are placed at the end of all 
the IOBs and channel programs. The last doubleword of the 
GETMAIN area is used for sector manipulation. The first byte is 
used by set-sector and by read sector. The second byte is used 
as a byte of zero on which to issue a set~sector command in 
order to position at the beginning of the track. 


The executor operates as follows: 


e If the extents are smaller than the blocks, it issues a 
DMABCOND macro instruction to abend. 


e It constructs channel programs to write the number of 
segments required by the size of the block. 


® It specifies in the WIG table that OPEN executor processing 
is completed for this DCB. It then searches the WIG table 
to pass control to another executor. If the WIG table has 
no eine entries, the executor returns control to the Open 
routine. 


Stage 2 OPEN Executor IGG0191Q: Executor IGG0191Q gains control 
after executor IGG0196Q (for 3800 Printing Subsystem only), 
IGG0197U, IGGO0197F, or IGGO193I if the DCB specifies: 


Chained channel-program scheduling 
Unit record and magnetic tape 
The executor operates as follows: 


® If the DCB specifies the CNTRL macro instruction, this 
executor identifies executor IGG0191G in the WIG table as 
the next executor to receive control for this DCB. It then 
searches the WIG table to pass control to another executor. 


e If the NOTE/POINT macro instruction is specified and the 
device is magnetic tape, it identifies module IGGOI19BL to be 
loaded for use with the DCB. 


e If the NOTE/POINT macro instruction is specified, and the 
device is unit record, it identifies dummy data set module 
IGGO19AV to be loaded and used in place of NOTE/POINT. 


e It identifies the end-of-block routine to be loaded and used 
for the processing described by this DCB. 


e From subpool 0 in the user's key, it obtains space for and 
constructs one IOB, the required number of ICBs Cone per 
buffer or channel program) and channel programs appropriate 
to the device, and links them. It stores the number of 
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bytes gotten for the IOBs in the second word of the audit 
trail for force close. 


When control is returned from GETMAIN, it sets an audit 
trail bit to indicate to the force CLOSE executor that 
storage should be freed. 


It sets the PCI flag in the READ Count CCW, only if ina 
real address environment. 


For QSAM. data sets with fixed-blocked record format on a 
unit record device, and the buffer pool was not gotten by 
OPEN, it sets DCBBLKSI equal to DCBLRECL and turns off the 
blocked records bit in DCBRECFM. 


If chained scheduling cannot be supported because of 
conflicting specifications, bit 5 of DCBCIND2 is set to 0 to 
indicate that chained scheduling is not being supported. The 
executor specifies IGG0191G as the next executor to receive 
control; otherwise, unless variable spanned record format is 
specified, bit 5 of DCBCIND2 is set to 1 to indicate support 
of chained scheduling and IGG01913 is specified as the next 
executor to receive control. When variable spanned or 
ISO/ANSI/FIPS variable spanned record format is specified, 
IGG01916 is the next executor for this DCB. 


It then searches the WTG table to pass control to another 
executor. 


Stage 2 OPEN Executor IGG0191R: OPEN executor IGGO191R receives 
ube after executor IGG0193I if the OPEN parameter list 
specifies: 


and 


The 


132 WVS/XA SAM Logic 


INOUT, or OUTIN 

the DCB specifies: 

Chained channel-program scheduling 
Magnetic tape 

executor operates as follows: 


If the device is magnetic tape, it identifies NOTE/POINT 
module IGGO19BL to be loaded for use with the DCB. 


It identifies the end-of-block routine to be loaded for use 
with the DCB. 


From subpool 0 in the user's key, it obtains space for and 
constructs one IOB, the required number of ICBs (one per 
buffer or channel program) and channel programs for 
direct-access storage or magnetic tape, and links them. It 
stores the number of bytes gotten for the IOBs in the second 
word of the audit trail for force close. 


When control is returned from GETMAIN, it sets an audit 
trail bit to indicate to the force CLOSE executor that 
storage should be freed. 


It sets the PCI flag in the read count CCW, only if ina 
real address environment. 


; 
If chained scheduling cannot be supported because of 
conflicting specifications, bit 5 of DCBCIND2 is set to 0 to 
indicate that chained scheduling is not being supported, the 
executor specifies IGG0191G as the next executor to receive 
control; otherwise, bit 5 of DCBCIND2 is set to 1 to 
indicate support of chained scheduling and IGG01913 is 
specified as the next executor to receive control. 


It then searches the WTG table to pass control to another 
executor. 
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Stage 2 OPEN Executor IGG0196K: Executor IGG0196K receives 
cones UP ieee IGG0191G determines that the device type is 
unit record. 


® This executor builds channel programs, using the storage 
gotten in IGGO19I1G. 


e For QSAM fixed blocked record format, it sets DCBBLKSI equal 
eepEecuo and turns off the blocked records bit in 


The executor specifies in the WIG table the next executor 
required for this DCB. If the DCB specifies variable-length 
record format, the next executor is IGG01915. For the remaining 
access conditions A aa cause this executor to be used, the next 
executor is IGG01910 


The executor then searches the WIG table to pass control to 
another executor. 


Stage 2 OPEN Executor IGG0197N: Executor IGG0197N receives 
control from IGG0193I whenever the 3505 or 3525 is specified, or 
from I1GG0197M whenever the same devices are specified and a 
buffer pool is not needed. 


The executor operates as follows: 


® It nekes a test to determine if the FUNC parameter is being 
used. 


@ If the FUNC parameter is not being used, and if the file is 
for read-only Cwithout OMR or RCE) or punch-only, IGG0191G 
is specified in the WIG table as the next executor required 
for this DCB. 


e If the FUNC parameter specifies print only or associated 
files, IGG0197P is specified in the WIG table as the next 
executor required for this DCB. 


e If a specified parameter combination is found to be invalid, 
a message to the programmer (NTP) is issued along with a 
subsequent abend (004). 


® If the FUNC parameter is not being used, but the file is a 
read-only with OMR or RCE, IGG0197P is specified in the NTG 
table as the next executor required for this DCB. 


® After the validity of the FUNC parameter is established, the 
DCBMACRF field is tested to determine if the CNTRL is valid 
for an input data set. If it is not valid, a WIP message 
and mb ABEND macro (004) with a return code of 02 are 
issued. 


® If the CNTRL specification is valid, a test is made to 
spl lda if the associated DCBs specify the same access 
methods. 


e If the access methods are not the same, a message is written 
to the programmer along with a subsequent ABEND (004). 


e It specifies in the HTG table that IGGO0197P or IGG0191G is 
the next executor required for this DCB. It then searches 
the WIG table to pass control to another executor. 


Stage 2 OPEN Executor IG6G0197P: IGG0197P receives control from 
IGGO197N if neither read-only (without OMR or RCE) nor 
punch-only is specified for the 3505 or 3525. 

The executor operates as follows: 


® It builds the IOB and CCWs and appends a work area to the 
IOB, according to the type of data set that is specified. 
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e It specifies in the WIG table that IGG0197Q is the next 
executor required for this DCB. It then searches the WTG 
table to pass control to another executor. 


Stage 2 OPEN Executor 1I1GG0197Q: IGG0197Q receives control from 
IGGO0197P. 


The executor operates as follows: 


@ A test is made to determine if data protection image CDPI) 
is specified in the FUNC parameter. 


e If DPI is specified, SVC 105 is issued. This builds a DCB 
for SYS1.IMAGELIB and returns its address in register one. 


@ Both a BLDL and a LOAD macro are issued so that the DPI 
image can be built and the image address can be loaded in 
register zero. 


e The address is saved for the image deletion (after the image 
has been copied into IOB + 64) by the DELETE macro. 


e If DPI is not specified, tests are made to determine which 
EOB and/or control module ID is to be entered in the DCB. 
(The same tests are made if DPI is specified. ) 


e It specifies in the WIG table that IGG01910 is the next 
executor required for this DCB. It then searches the WTG 
table to pass control to another executor. 


Stage 2 OPEN Executor IGGO197V: IBM 3890 Document Processor 
executor, IGG0O197V, receives control after either executor 
IGG0196B or IGG0O193I. For information about the executor, see 


OS/VS Logic for IBM 3890 Document Processor. 


Stage 2 OPEN Executor IGGO199L: Executor IGG0O199L receives 
control after executor IGGO1OJIL if the DCB specifies: 


Create-BDAM CWrite-Load) 


The executor constructs channel programs. When the DCB 
specifies RECFM=VS and BFTEK=R, the routine constructs a segment 
work area for spanned record processing and creates an IRB for 
the asynchronous exit routine, which executes writing of the 
succesSive segments. It then searches the WTG table to pass 
control to another executor. If the WTG table has no other 
entries, the executor returns control to the OPEN routine. 


With the rotational position sensing (RPS) feature, more virtual 
storage is needed for the record-ready channel programs. This 
executor computes the extra bytes needed for the record-ready 
channel programs and issues a GETMAIN. The sector bytes are 
placed at the end of all the IOBs and channel programs. The 
last doubleword of the GETMAIN area is used for sector 
manipulation. The first byte is used by set-sector and by 
read-sector. The second byte is used as a byte of zero on which 
to issue a set-sector command in order to position at the 
beginning of the track. 


Note: A user may provide a segment work area by setting a bit 
in the DCBMACRF field and placing the address of that area in 
the DCBEOB field. In this case, this routine will not construct 
the segment work area. 
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Stage 3 OPEN Executors 


Stage 3 executors load the modules needed to perform the 
Processing described by the DCB. If QSAM is used, and an input 
data set is to be processed, a second stage 3 executor also 
primes the buffers. 


Some of the modules to be loaded are identified by stage 2 
executors having set codes in DCBCNTRL for unit record and tape 
data sets. The 4 bytes of DCBCNTRL identify these types of 


modules: 

Byte Module Type 

+0 EOB CQSAM) or EOB for read (CBSAM) 
+] EOB for write (BSAM) 

+2 NOTE/POINT or CNTRL 

+3 NOTE/POINT or CNTRL 


Note that the first byte is DCBEROPT and is saved at DXCCN6 
during stage l and restored by IGG01911. The codes that can be 
in the 4 bytes and the modules they can identify, depending on 
which stage 3 executor does the loading, are: 


00 No module to load 

01 Reserved 

02 IGGO19CC, IGGO1LICW End-of-block 

03 IGGO19CE, IGGO19CX End-of-block 

04 IGGO19SCF, IGGO1SCY End-of-block 

05 Reserved 

06 IGGOL9BD, IGGOLOBL NOTE/POINT, tape 

07 IGGO19CA CNTRL, card reader 

08 IGGO19CB, IGGO19CC CNTRL, printer or End-of-block 
09 IGGO19BE CNTRL, tape 

OA IGGOLIAV gee cane ae for various 
OB IGGO19CT End-of-block, error 

oc IGG019TC End-of-block, user-totaling 
OD IGG019TC End-of-block, user-totaling 
OE IGGO19TW End-of-block, user-totaling 
OF IGGOLOTH End-of-block, user-totaling 
10 IGGO19CT End-of-block, error 





In many of the above pairs, the first one is for normal 
scheduling and the second one is for chained scheduling. 


The stage 3 OPEN executors load in the fixed standard end of 
extent modules and the format-U channel end module when the 
rotational position sensing (RPS) feature is used. 

Figure 24 on page 1356 lists the access conditions that cause the 
different stage 3 executors to be loaded and to gain control. 
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The executors are described in the text that follows ina 
sequence identical to the list under "Executors" in Figure 24. 


In this figure, an X in a column represents a condition that 
must be satisfied before the executor is selected. A blank in 
the upper portion of the table indicates that either the 
condition is not required for selection or not examined at this 
time. The table should be used in conjunction with the flow of 
control information in Diagram E, SAM Flow of Control for OPEN 
Executors. 
Stage 3 OPEN Executor 16601910: 16601910 receives control after 
executor IGG0197Q. It also receives control after executor 
1GG0191G. 
This executor operates as follows: 


e 4 i it identifies, loads, and puts the address into the 
of: 


A GET or PUT routine 
A synchronizing routine 
e It loads appendages and puts their addresses in the DEBAVT. 
e It puts end-of-block routine addresses in the DCB. 
e If BSAM is specified, it identifies, loads, and places the 
addresses in the DCB of the READ/WRITE routine and the CHECK 
routine. 
@ For 3211 printers, it issues a CIRB macro instruction to 
create an IRB for an error retry module; it loads an 
abnormal end appendage and an error retry module. 


° For user-totaling, it loads the EOB routine and places its 
address in the DCB. 


e It enters into the DEBSUBID field of the DEB the 
identification of each routine loaded. 


e It specifies executor IGG01911 in the WTG table as the next 
executor to receive control for this DCB. 


Access Method Operations 


Chained scheduling X X 
None of the above X X 


%, DATA, or SYSOUT specified on the xX 
DD statement 


Variable-length records X X 
Dunmy data set X 
OPEN Executors: 

IGG01910 10 
1GG01911 11 11 1111 11 
IGG01913 13 





Figure 24 (Part 1 of 2). OPEN Executor Selector——Stage 3 
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Access Method Operations 


IGG01915 
1GG01916 
IGGO19S8L 


15 
16 
sl 
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Figure 24 (Part 2 of 2). OPEN Executor Selector——Stage 3 


Stage 3 OPEN Executor IGG01911: Executor IGG01911 is entered 
from executors IGG0191C, for dummy data sets; IGGOLIIN, 
IGGO196A, for EXCP data sets; and [GG01910, IGG01912, 16601923, 
ee and IGG01916 for all SAM unit record and tape data 
sets. 


This executor operates as follows: 


° It issues the IECRES macro instruction to cause the user's 
copy of the DCB to be updated to reflect the changes and 
See a ne eese by the OPEN executors to the protected copy 
re) e : 


@ It issues a DELETE macro instruction for the message CSECT 
if it was loaded by stage 1 OPEN executors. 


° It sets an audit trail bit for the SAM/PAM/DAM force CLOSE 
executor to indicate the data set can be closed by the 
normal close executor string during force close processing. 


® It puts the buffer address into the CCN and, if ANSI with 
BUFFOF=L is not specified, zeros the first four bytes 
(buffer chain pointer) of each buffer. 


It sets the type of related request (RR) for normal scheduling 
data sets with more than 1 IOB. The type of RR setting defines 
the time in the processing of the current request that 105 can 
start the next RR. This is controlled by the processing REQD to 
prepare the next RR for I/0 initiation. CIE, if chan end 
appendage updates the next IOB after completion of the current 
IOB, I/70 cannot be started for the next request until IOS has 
received control back from the chan end appendage.) The 
following matrix shows the types of related requests. 


Processing 
Required Type I Type If Type Iit 
DRP processing X 


CE appendage 


CE interrupt xX 
SIO appendage X 
EOE appendage X 


Note: The only exception to the above matrix is for mag 
tape. Unit exception is presented from trying to write 
ever the reflective marker on reading a tape mark. To 
keep I0S from starting the next RR it is necessary for the 
ERP to mark this in permanent error. Since ERP processing 
is after CE processing Cand SAM output data sets, SAM tape 
neue data sets do not have ce appendages,) the type must 
e és 
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e For data sets other than QSAM, it returns to common 


open. 


e It completes any remaining DCB fields. 
e It completes the IOBs. 
e It puts the buffer address in the READ or WRITE alg 


for unit record and magnetic tape data sets. Ifa 
invalid buffer address is found, it issues a DMABCOND 
macro instruction. 


For QSAM input: © 


Chained Scheduling: It chains all channel programs 
for move, data, and substitute modes. For locate 
mode, it chains together all but one. It then issues 
an EXCP macro instruction against the main IOB to 
Prime the buffers. 


Normal Scheduling: It issues a GETMAIN macro 
instruction from subpool 230 in the user's key for a 

. register save area for the access method routines. It 
saves the address returned from GETMAIN in the second 
word of the audit trail for force close. It then 
passes control to the EOB routine (BALR if the key is 
less than 8, SYNCH if the key is greater than 7) to 
prime the user's buffers (for all but one IOB if 
locate mode; all buffers for other processing modes). 
Before exiting, it frees the register save area. 


e For output, it sets a flag, which is used to identify 


the first entry, into the PUT routine. 


e It searches the WTG table to pass control to another 


executor. If the WIG table has no other entries, the 
executor returns control to the OPEN routine. 


Stage 3 OPEN Executor I6G01913: Executor IGG01913 receives 
Soret. after executors IGG0191Q and IGGO19I1R if the DCB 
specifies: 


The 
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Chained channel-program scheduling 

executor operates as follows: 

For 3211 printers, it issues a CIRB macro instruction to 
create an IRB for an error retry module; it loads an 
abnormal-end appendage and an error retry module. 


If QSAM is specified, it identifies, loads, and places the 
address into the DCB of: 


A GET or a PUT routine 
A synchronizing routine 


If BSAM is specified, it identifies, loads, and places the 
address into the DCB of: 


A READ or WRITE routine 
A CHECK routine 
It loads appendages and puts their addresses in the DEBAVT. 


It loads the end-of-block routines specified by the stage 2 
executors. 


It specifies in the WIG table that OPEN executor IGG01911 is 
to receive control next for this DCB. 
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Stage 3 OPEN Executor I1GG01915: Executor IGG01915 receives 
control after executors IGG0191G, IGGO196K, and IGG01979, if the 
DCB specifies: 


Variable-length record format 
The executor operates as follows: 


@ If QSAM is specified, the executor identifies and loads a 
GET or PUT routine and a synchronizing routine. 


@ If BSAM is specified, the executor identifies and loads a 
READ or WRITE routine, a CHECK routine, and a routine to 
service the NOTE/POINT macro instruction if it is specified. 


¢ It loads appendages and puts their addresses in the DEBAVT. 


® It loads the end-of-block routines specified by the stage 2 
executors. 


@ It issues a DMABCOND macro instruction if LRECL=X is 
specified and the processing mode is not Locate. 


@ It issues a DMABCOND Cabend code 013-4) macro to cause an 
abend if ISO/ANSI/FIPS records are to be processed and there 
1S no record area present. 


@ It places the identifiers (IDs) of the routine loaded into 
the DEB subroutine ID field and the addresses of t 
routines into the DCB. 


e For a 3211 printer: 


An abnormal-end appendage is loaded and its address is 
Placed in the appendage vector table. 


An asynchronous error routine is loaded. The IRB used 
for scheduling this routine is built and the IRB address 
placed in the DEB. 


® It specifies in the WTG table that executor IGGO01911 is the 
next executor required for this DCB. 


@ It searches the WIG table to determine to which executor it 
should pass control. 


Stage 3 OPEN Executor IG6G01916: Executor IGG01916 receives 
oo after executors IGG0191Q and IGG0191R if the DCB 
specifies: 


Variable-length record format 
The executor operates as follows: 


If QSAM is specified, the executor identifies and loads a 
GET or PUT routine and a synchronizing routine. 


If BSAM is specified, the executor identifies and loads a 
READ or WRITE routine, a CHECK routine, and a routine to 
service the NOTE/POINT macro instruction if it is specified. 


° It loads appendages and puts their addresses in the DEBAVT. 


@ It loads the end-of-block routines specified by the stage 2 
executors. 


@ It issues a DMABCOND macro instruction if LRECL= X is 
specified and the processing mode is not Locate. 


e It issues a DMABCOND Cabend code 013-4) macro to cause an 


abend if ISO/ANSI/FIPS records are to be processed and there 
is no record area present. 
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It places the IDs of the routine, loaded into the DEB 


- subroutine ID field, and the addresses of the routines into 


the DC 


It specifies in the WIG table that executor IGG01911 is the 
next executor required for this DCB. 


It searches the WTG table to determine to which executor it 
should pass control. 


Stage 2 and 3 OPEN Executor IGG0O193B: Executor IGG0193B is 
entered after executor IGG0193I if the DCB specifies: 


Direct access 


This executor operates as follows: 


This is the stage 2 and 3 open executor for non-WRITE load 
direct-access processing. Each DCB that has IGG0193B in its 
where-to-go (WIG) table entry is processed by the module's 
base routine, OPENEXEC. 


It gets a storage area for, and initializes, the SAMB 

control block (SAMBBLD). The amount of space of CCNs, count 
fields, and IDAWs (indirect address words) is calculated 

A a Cif not zero), and DCBBUFNO for SQAM or DCBNCP 
or 


It initializes the key zero IOB in the SAMB CIOBBLD). 

It gets a storage area for, and initializes, the ICQE and 
caller key IOBs. It initializes the caller key IOBs by 
copying the key zero IOB into them CICQIOBLD). 

It initializes the DEBAVT CAVTBLD). 

It initializes the fields in the DCB. It calls subroutines 
to load the front end routines and places their addresses in 
the DCB CDCBBLD). 


It primes the buffers for QSAM input and update (BFRPRIME). 


Stage 3 OPEN Executor IGGOI98L (SYSIN/SYSOUT): IGG0198L 
receives control after the SAM-SI OPEN executor IGG0199W. 


The executor operates as follows: 
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It determines which processing modules are required to 
process the SYSIN or SYSOUT data set. 


If BSAM is specified in the DCBMACRF field of the DCB, the 
BSAM processing module, IGGO019DK, is loaded into virtual 
storage. If input is also specified, module IGGO1LOBB is 
also loaded to process the CHECK macro instruction. 
Otherwise, IGGO19DK also handles the CHECK macro 
instruction. 


If QSAM is specified, the QSAM CI processing module IGG019DJ 
is loaded into virtual storage. 


If input is specified, module IGGO019AQ is also loaded to 
Process an end-of-data condition. 


It sets the CI bit in the DCBCIND] field to indicate that 
this DCB is processed by the SAM-SI routines. 


It marks the current entry in the WIG table to indicate that 
no further executor processing is required for this DCB. 


It refreshes the processing program's DCB from the copy 
maintained by the open routines. 


It then searches the WTG table to determine whether to give 
control to another executor, or branch back to itself. If 
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CLOSE EXECUTORS 


there are no other entries in the WIG table, the executor 
returns control to the open routines. 


Figure 25 on page 141 shows the conditions that cause the CLOSE 
executors to gain control. IGGO201A or IGG0201Z receives 
control if one of the sequential access methods is used. 
Control goes to IGGO2Z201A if the device type is tape or unit 
record. Executor IGG0201X is an extension of IGGOZ01A. If the 
device type is direct-access storage, control is passed to 
IGGO201Z. Executor IGG0201B receives control after executors 
IGGOZ01A or IGGO201Z if QSAM was used with an output data set 
and a channel program encountered an error condition while one 
of the other CLOSE executors had processor control. Executor 
IGGO201P receives control from IGGOZ201A whenever the 3525 or the 
3505 with OMR or RCE is specified. Executor IGGO0201R is an 
extension of IGGOZ201P. Executor IGGOZ01W receives control 
whenever a SYSIN or SYSOUT data set is being processed. 


Control returns to the CLOSE routine of I/0 support when CLOSE 
executor processing is completed. 


Access Method Options Selections 

Tape or unit record X X X xX 
Direct-access storage xX X 
Permanent error or Xx 


end-of-volume condition when 
using QSAM for output (tape, 
only) 


%, DATA, or SYSOUT specified X 
on DD statement 


3505 COMR/RCE) or 3525 X 
Executors 

IGGO2Z01A 1A 1A 1A 
IGGO201B 1B 1B 
IGGO0201P 1P 
IGGO2Z01R 1R 
IGGO0201W 1W 
IGG0201X 1X 1X 

IGGO0201Y LY 1yY 
IGG0201Z iZ 12 





Figure 25. CLOSE Executor Selector 


CLOSE Executor IGGO2Z01A: IGG0201A receives control from the 
CLOSE routine of I/0 support if the DCBDSORG field specifies a 
value of PS and if the device type is tape or unit record. 

The executor operates as follows: 

6 It turns on the CLOSE-in-process bit in the DCB. 


@ If the 3525 or the 3505 with either OMR or RCE is specified, 
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the executor specifies in the WTG table that executor 
IGGOZ01P is required for this DCB. 


For QSAM output on 2540 devices, it issues EXCP macro 
instructions to punch two blank cards to allow the ERPs to 
gain control when an error occurred on either of the two 
last cards punched. 


For QSAM input or BSAM data sets, a PURGE macro instruction 
is issued. 


If the OPEN parameter is output and the DCB specifies QSAM, 
the executor issues a TRUNC and, if the processing mode is 
Locate, a PUT macro instruction to cause scheduling of the 
last buffer. On return of control, the executor awaits 
execution of the last channel program. The TRUNC and PUT 
routines are entered via the SYNCH SVC if the user's key is 
greater than 7. 


If all channel programs were executed without encountering 
either an end-of-volume condition or a permanent error, the 
executor continues processing. 


For magnetic tape devices, if any of the preceding channel 
programs encountered an end-of-volume condition, the 
executor specifies in the WIG table that executor IGG0201B 
is required for this DCB. Depending on the remaining 
entries in the NTG table, it then either processes another 
DCB, or passes control to executor IGGO201B. 


For printers, if the clear printer is a valid command, clear 
printer/nop commands are issued to ensure all data has been 

printed. For other printers, issue a WRITE NOSPACE command 

to clear the printer print line buffer. 


It sets an audit trail bit to indicate that a PURGE has been 
done. These bits have meaning only during force close 

ere cma The audit trail is passed to a user's STAE 
routine. 


It sets up the WIG table to pass control to IGG0201X. 


It then searches the WIG table to process another DCB or 
pass control to another executor. 


CLOSE Executor IGG0201B (Error Processing): IGG0201B receives 
control after either executor IGGO2Z01A or IGG0201Z if one of the 
latter finds that a channel program for an output data set using 
eres a permanent error or an end-of-volume 
condition. 


The executor operates as follows: 
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It determines whether a channel program encountered a 
permanent error or an end-of-volume condition. 


If a permanent error occurs for a direct-access device, it 
Sires the track balance routine to get the bad record 
erased. 


If a channel program encountered an end-of-volume condition, 
the executor finds the IOB associated with that channel 
program and issues an EOV. When control returns, the 
executor performs its remaining processing, unless one of 
the channel programs encountered a permanent error or 
another end-of-volume condition. In either of those cases, 
it ise ia processing as it did when it first received 
control. 


If the DCB specifies either a DCBDSORG field value of PO or 
POU with a DD statement of the form DSNAME CMEMBERNAME) the 
executor issues a STOW macro instruction. On completion of 
the STOW routine, the executor tests for errors, such as 
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insufficient space in the directory. For any type of error, 
the executor issues an DMABCOND macro instruction. 


The executor specifies in the WIG table that the next 
executor needed for this DCB is either IGGO201Y for 
direct-access devices or IGG0201X for all other devices. 


It then searches the WIG table to either process another DCB 
or to pass control to the next module. 


CLOSE Executor IGG0201P: This module receives control from 
IGGO201A whenever: 


The 


The 3525 is specified or the 3505 is specified with either 
OMR OR RCE. 


module operates as follows: 
It turns on the CLOSE-in-process bit in the DCB. 


Tests are made to determine if either OMR or RCE is being 
used with the 3505. 


If either is being used, the module issues a feed and 
stacker-select command (with the OMR/RCE flag bit off) to 
return the device to normal punched mode. 


If either an associated data set or PRINT is being used with 
the 3525, the following apply: 


File Type Feed Caused by Close of 
Prant Print File 

Read/print Read File? 
Read/punch/print Read File? 

Read/punch Read File 

Punch/print Punch File 
Punch/interpret Punch File 

Read Read File 

Punch Punch File 

Notes: 


i A feed is executed if an end-of-file is caused by the 
hardware; a feed is not executed if it is caused by a 
data delimiter card. 


2 Punching or printing delimiter cards is not allowed for 
these file types, because the CLOSE routine always 
issues a feed command. 


If a channel program for an output (QSAM) data set 
encountered a permanent error, IGGO201B is specified in the 
NTG table as the next executor required for this DCB. 
Otherwise, executor IGGOZ01R is specified in the WIG table. 


It then searches the WTG table to pass control to another 
executor. 
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CLOSE Executor IGG0201R: This module receives control from 
IGGO201P. 


The module operates as follows: 


It frees buffer space from the buffer pool. 

It also frees IOB and ICB space. 

It clears BSAM and QSAM vectors in the DCB. 

It specifies in the WIG table that executor IGG0201B is the 


next executor required for this DCB. It then searches the 
WTG table to pass control to another executor. 


CLOSE Executor IGGO201W (SYSIN/SYSOUT}: Executor IGGO201N 
receives control if the CLOSE routine ‘€see Diagram L) determines 
that the SAM-SI CLOSE executor is required to process a DCB for 
a SYSIN or SYSOQUT data set. 


The executor operates as follows: 


It constructs a CLOSE parameter list for the ACB built by 
the SAM-SI OPEN executor for this DCB. 


If QSAM PUT locate mode is specified, a final PUT macro 
instruction is issued to clear the I/0 area. 


It deletes the BSAM CIGGO1ODK and IGGO19BB) or QSAM 
C€IGGO19DJ and IGG019AQ) processing modules loaded by the 
OPEN executor, IGGO198L. The processing modules that handle 

I and SAM requests CIGGOLIBB and IGGO19AQ) are not deleted 
if concatenation is in process. 


It issues a CLOSE macro instruction for the ACB. 


It issues a FREEMAIN macro instruction for the area occupied 
by the JES compatibility interface control block (CICB) and 
the record area obtained for collecting BSAM variable 
spanned segments. 


It searches the WTG table to pass control to another 
executor. 


CLOSE Executor IGGO2Z01X: Executor IGG0201X is a continuation of 
executor IGGOZO01A and receives control from that executor or 


from IGGO2Z01B if an EOV condition arose during processing in 
IGGOZOIA. 


The executor operates as follows: 
For QSAM: 
It frees the record area if it was gotten by the OPEN 
executors. 
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It frees the buffers gotten by the OPEN executors if 
concatenation of unlike attributes was specified. 


It returns the buffer to the buffer pool for all other 
conditions. 


The executor computes the amount of space occupied by the 
channel programs, IOBs (and ICBs, if chained scheduling is 
used), and returns that space to the supervisor by using a 
FREEMAIN macro instruction. 


It sets audit trail bits to indicate what processing was 
done. These bits have meaning only during force close. The 
audit trail is passed to a user's STAE routine. 


The executor specifies in the WTG table that CLOSE executor 


processing is completed for this DCB. Depending on the 


remaining entries in the WIG table, it then processes 
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another DCB, returns control to the CLOSE routines, or, if 
force CLOSE is in control, returns to the SAM force CLOSE 
executor, IGG020T1, with a return code of 0 in register 15. 


CLOSE Executor IGGO201Y: IGG0201Y receives control from 
executor IGG0201Z or from IGGO0201B if an EQV or permanent error 
was detected by IGG0201Z. 


The executor operates as follows: 


® When record-ready channel programs are constructed, a 
GETMAIN macro instruction is issued for more bytes during 
open IOB construction. In the CLOSE routine, when the IOB 
and channel program areas are freed, the number of 
additional bytes is computed and added to the byte count 
before issuing the FREEMAIN macro instruction. 


® It frees the segment work area for a DCB that specifies 
BFTEK=R, RECFM=VS, and MACRF=WL. 


® It returns buffers to the buffer pool if they were gotten by 
open executors. 


e It frees the SAMB, ICQE, and IOBs if they were gotten by the 
OPEN executor. It also zeros the addresses of these control 
blocks in the DCB. 


e It frees the buffers if seutatenstion of unlike attributes 
was specified. 


® It frees the record area obtained by an OPEN operation when 
a age specifies BFTEK=A, spanned record, and QSAM locate 
mode. 


e The executor specifies in the WIG table that processing for 
this DCB is completed. Depending on the remaining entries 
in the NTG table, it then processes another DCB, returns 
control to the common close routines or, if force CLOSE is 
in control, returns to the SAM force CLOSE executor, 
IGGO2Z0T1, with a return code of 0 in register 15 


CLOSE Executor I1G6G0201Z: Executor IGG0201Z receives control 
from the close routine of O/C/EOV if the DCBDSORG field 
specifies a value of PS or PO and if device type is 
direct-access storage. 


The executor operates as follows: 


e If the task is abnormally terminating, the following 
processing takes place. 


- No executor processing is performed if the data set is 
open for input or update, or the last operation was not 
a write, or the DEB extension indicates an 
OPEN/CLOSE/EOV ABEND occurred. 


- For partitioned data sets, DCBFDAD is set from DCBRELAD. 
SVC 25 is issued and no further executor processing is 
performed. 


- For sequential data sets processed by BSAM, DCBFDAD is 
set from the IOBSEEK field in the SAMBIOB. SVC 25 is 
issued and no further executor processing takes place. 


a For sequential data sets processed by QSAM, normal 
executor processing listed below is performed. Purged 
I/0 is restarted. 


e If the OPEN parameter is OUTPUT and the DCB specifies QSAM, 
the executor issues a TRUNC and, if in locate processing 
mode, a PUT macro instruction to cause scheduling of the 
last buffer. On return of control, the executor awaits 
execution of the last channel program. 
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6 For QSAM input or BSAM data sets, a PURGE macro instruction 
is issued. 


e If all channel programs were executed without encountering 
either an end-of-volume condition or a permanent error, the 
executor continues processing. 


e If any of the preceding channel programs encountered either 
a permanent error or an end-of-volume condition, the 
executor specifies in the WTG table that executor IGGO0201B 
is required for this DCB. Depending on the remaining 
entries in the WIG table, it then either processes another 
-DCB, or passes control to executor IGGO201B. 


e Jf OUTPUT and either a DCBDSORG field value of PO, or WRITE 
or PUT with a DD statement of the form DSNAME (MEMBERNAME) 
is specified, the executor issues a STOW macro instruction. 
On completion of the STOW routine, the executor tests for 
1/0 errors and for logical errors, such as insufficient 
space in the directory. For either type of error, the 
executor issues a DMABCOND macro instruction. 


e The executor specifies in the WTG table that module IGGO201Y 
is the next executor for this DCB. Depending on the 

- femaining entries in the WIG table, it then either processes 
another DCB or transfers control to the next module. 


FORCE CLOSE EXECUTORS 


SAM-SI Force CLOSE Executor IGGO20FC: Executor IGGO20FC 
receives control from the 0/C/EOV force CLOSE executor module, 
IFGORROB, when it determines that DCBs under JES control must be 
closed. The executor frees resources acquired for opened or 
partially opened SYSIN and SYSOUT DCBs that are being forced to 
a closed status. It provides as much of the normal close 

UB ill as possible in restoring the DCB to its preopen 
condition. 


The executor locates me CICB and performs the following 
operations: 


e Issues a CLOSE macro instruction for the ACB contained in 
; the CICB 


e Frees the record area for variable-length spanned records. 

e Deletes any processing modules loaded for this DCB. 

e Frees the storage obtained for the CICB. 

e Returns control to the calling routine. 

If the failure occurs during open processing and the CICB was 

not created, no further processing is required and control is 

returned to the calling routine, with a return code of 0. 

If the CICB cannot be located because the error occurred during 

other than open processing, control is returned to the calling 

routine, with a return code of 4 

Force CLOSE Executor IGG020T1: Executor IGG020Tl receives 

control from IFGORROB during force close processing for SAM, 

PAM, or DAM data sets. The primary function of the force CLOSE 

executor is to free resources associated with the DCB. 

The executor operates as follows: . 

e If the error occurred during close for QSAM or BSAM output 
DCBs, DCBFDAD is set from the IOBSEEK field in the SAMB IOB 


for sequential data sets, and from DCBRELAD for partitioned 
data sets. SVC 25 is issued using the SAMB JOB. 


146 MVS/XA SAM Logic LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials -— Property of IBM 


e If the error occurs during open processing and the user's 
copy of the DCB has not been updated by the OPEN executors, 
the following actions are taken: 


For SAM or PAM: 


@ It frees a logical record area if obtained by OPEN 
executors. 


e It frees the buffer pool if the user's buffers were gotten 
by the OPEN executors and concatenation of unlike attributes 
was specified; otherwise, it returns the buffers to the 
buffer pool. 


@ It frees the IOBs and ICBs and their channel programs if 
they were gotten by the OPEN executors. 


® It frees the segment work area if it was gotten by OPEN 
executors. 


e It frees the SAMB if it was obtained by the OPEN executor. 


e It deletes the message CSECT if ~ was loaded by the OPEN 
executors. 


e It deletes any UCS and FCB images loaded. 

¢ It issues a CLOSE IMGLIB SVC for SYS1.IMAGELIB. 
For BDAM: 

e It frees the buffers. . 

e It frees the unscheduled list if it exists. 


® It frees the segment work area if it was gotten by the OPEN 
executors. 


é It frees the READX list if it was sotten by the OPEN 
executors. : 

The force CLOSE executor then Bah ig to common CLOSE with a 

return code of zero in register 1 


If the error occurs during open processing and the user's DCB 
was refreshed from the protected DCB, the force CLOSE Executor 
sets up a retry address at RRXRETRY and attempts to execute the 
normal CLOSE executor string. It also issues a FREEMAIN macra | 
instruction for the register save area gotten ky IGG01911 when 
Priming QSAM input buffers. 


e If normal CLOSE processing is successful, the CLOSE 
executor, upon detecting a force CLOSE entry, returns to 
this force CLOSE executor with a return code of zero in 
register 15. 


® If normal CLOSE processing is not successful, the second 
level recovery routine of O/C/EOV gives control to the 
address specified in RRXRETRY. The force CLOSE executor 
then moves the audit trails to the component recovery status 
a ea (CRSA) with a return code of 8 in register 15. 


If the error occurs during other than open processing, the force 


CLOSE executor returns to the common close recovery routine with 
a return code of 8 in (Pegi ster 15. 
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Buffer-pool management routines form virtual storage space into 


buffers, and return buffers that are no longer needed. 
Figure 26 lists the buffer-pool management routines. 


Type Module Name Function 

GETPOOL IECQBFG1 This routine obtains virtual 
storage and forms a buffer 
pool. 

BUILD IECBBFB1 This routine forms a buffer 


pool in virtual storage 
supplied by the processing 
program. 


GETBUF . (Macro Expansion) This routine provides buffers 
from the buffer chain. 


FREEBUF = (Macro Expansion) This routine returns buffers 
to the buffer pool. 


FREEPOOL | (Macro Expansion) This routine returns virtual 
| : storage previously used for a 
buffer pool. 


BUILDRCD IGGO19B0 This routine allows a pointer 
to a record area to be 
incorporated ina buffer pool 
in virtual storage supplied by 
the processing program. 


Figure 26. Buffer~-Pool Management Routines 


GETPOOL Module IECQBFG1: Module JECQBFG] obtains 
virtual-storage space and forms it into buffers. It is loaded at 
execution time by a LINK macro instruction. 


The module eperates as follows: 


® It rounds the buffer length to the next higher doubleword 
multiple if the specified length is not such a multiple. 


y It determines buffer alignment from the DCBBFALN field value 
in the DCB. 


e It computes the number of bytes required and issues a 
GETMAIN macro instruction. 


e It constructs a buffer-pool control block in the first 8 
bytes of storage obtained. 


° If doubleword (not fullword) alignment is specified in the 
DCBBFALN field in the DCB, the module starts the first 
buffer at the byte immediately following the BUFCB. 


e If fullword (not doubleword) alignment is specified in the 
DCBBFALN field, the module skips one word after the 
buffer-pool control block before starting the first buffer. 


® It. chains the first buffer to the buffer-pool control block 
and determines the start of the next buffer by adding the 
rounded buffer length value to the address of the first 
buffer. The module chains the next buffer to the preceding 
EU te continues until all the buffers have been 
chained. 


° It returns control to the processing program. Figure 27 on 
page 149 illustrates the buffer-pool control block (CBUFCB) 
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that describes the buffer pool. Figure 28 on page 149 
illustrates the buffer-pool structures formed by the GETPOOL 


module. 
BUFAD BUFNO BUFL 
First Available Buffer Buffers Requested | Each Buffer 
Byte 0 4. 6 8 


Figure 27. Buffer-Pool Control Block 








Doubleword Fullword (Not Doubleword) 
Bufter Alignment Specified Buffer Alignment Specified 
BUFCS 
a LLL 





«<@-——— 2 Words ——_—_> 


Figure 28. GETPOOL Buffer-Pool Structures 





BUILD Module IECBBFB1: Module IECBBFB1 forms virtual storage 
space supplied by the processing program into buffers. It is 
loaded at execution time by a LINK macro instruction. 


The module operates as follows: 


® It rounds the buffer length to the next higher fullword 
multiple if the specified length is not such a multiple. 


6 It constructs a buffer-pool control block in the first 8 
bytes of the virtual-storage space provided by the 
processing program. 


6 It starts the first buffer at the byte immediately following 
the buffer-pool control block. 


8 It chains the first buffer to the buffer pool control block 
and determines the start of the next buffer by adding the 
rounded buffer-length value to the address of the first 
buffer. The module chains the next buffer to the preceding 
buffer, and continues until all the buffers are chained. 


e It returns control to the processing program. 


Figure 29 on page 150 lists, for each possible combination 
of space alignment and buffer length parity, the 
illustration that shows the structure of the resulting 
buffer chain or pool. Figure 27 illustrates the buffer pool 
control block (BUFCB), Figure 30 on page 150 illustrates the 
various buffer alignments that the Build module forms. 
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GETBUF Macro Expansion: The purpose of this coding is to 
provide the next buffer from the buffer pool. The macro 
expansion produces inline code that presents the address of the 
next buffer to the processing program and updates the 
buffer-pool control block to point at the following buffer. 


FREEBUF Macro Expansion: The purpose of this coding is to 
return a buffer to the buffer chain. The macro expansion 
produces inline code that stores the address presently in the 
buffer-pool control block in the first word of the buffer being 
returned, and then stores the address of that buffer in the 
buffer-pool control block. 


Parity of number of words 
; in buffer length after 
Alignment of first byte rounding up length 


of space passed in parameter macro of BUILD Buffer pool 
BUILD macro instruction macro instruction structure 
Doubleword Even A 

Odd B 
Fullword Even Cc 
CNot doubleword) Odd D 


Figure 29. Build Buffer-Structuring Table 


FREEPOCOL Macro Expansion: The purpose of this coding is to 
return the space previously allotted to the buffer chain to 
available virtual storage. The macro expansion produces inline 
code that computes the total number of bytes to be returned, 
issues a FREEMAIN macro instruction, and sets the DCBBUFCB field 
in the DCB to show that no buffer pool is associated with that 





Figure 30. Build Buffer Pool Structure 
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BUILDRCD Routine IGGO19B0: This routine forms virtual-storage 
space supplied by the processing program into buffers and links 
the buffer pool to a record area also supplied by the processing 
program. It is loaded at execution time by a LINK macro 
instruction. 


The module operates as follows: 


@ It rounds the buffer length to the next higher fullword 
multiple if the specified length is not such a multiple. 


e It constructs a buffer-pool control block (see Figure 33 on 
page 170) in the first 12 bytes of the virtual-storage space 
provided by the processing program. 


e It turns on the high-order bit of the BUFLG byte of the 
buffer-pool control block to indicate that a record area 
address is present. 


e It clears the control field (32 bytes) of the record area. 


® It stores the record area length in the record area (see 
Figure 34 on page 241) provided by the processing program. 


e It chains the first buffer to the buffer-pool control block 
and determines the start of the next buffer by adding the 
rounded buffer length value to the address of the first 
buffer. The next buffer is chained to the preceding buffer 
until all buffers are built. 


e It returns control to the processing program. 


Figure 31 on page 151 illustrates the buffer-pool control block 
(BUFCB) that describes the buffer pool when logical record 
interface is required for variable-length spanned records 
processed in the locate mode. 


Figure 32 illustrates the record area used to assemble and 
segment a spanned record. This record area is either acquired 
dynamically by data management at OPEN time, when the DCB 
specifies RECFM-VS/VBS, MACRF=GL/PL, and BFTEK=A, or provided by 
the problem program by means of a BUILDRCD macro instruction. 


BUFAD BUFLG | BUENO BUFLTH BUFRECAD 


Address of Number of Address of 
First Available Buffers Record 
Buffer Requested | Buffer Area 























Byte 0 4 5 6 8 12 
Figure 31. Buffer-Pool Control Block 


BUFAD 4 bytes; contains the address of the first available 
buffer in the pool. 

BUFLG l1 byte; set to X'C0O* when a record area address is 
present in the buffer control block. 
Bit Meaning 
0-1 Record area present 
1-1 Buffer control block extended 
2-/ Reserved 

BUFNO 1 byte; contains the number of buffers requested. 
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BUFLTH 2 bytes; contains the length, rounded to the nearest 


fullword of each buffer requested. 


BUFRECAD 4 bytes; contains the starting address of the record 








area. 










Position 






Beginning 
of Data 






Track 

Address to | Next 

Beginning | 10OB Count | Reserved | Data 
in Block | Segment of | Address | Field 

Record 


24 32+ 
LRECL 


Figure 32. Record Area Used to Assemble and Segment a Spanned 


Record 


A description of the fields contained in the record area 
follows: 
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Length of Record Area. This 4-byte field contains the 
length of the entire record area (data field + 24 bytes). 
The length may be determined by the LRECL of the DCB macro 
at OPEN time plus 8 bytes for alignment or it may be 
specified in the length of the record area parameter of the 
BUILDRCD macro instruction, in which case the BUILDRCD 
routine places the length of the record area in this field. 
If extended logical record interface (XLRI) is used, the DCB 
LRECL value is a multiple of 1024, which is used to 

calculate the requested record area Size. The second bit of 
the first byte of this field is set on by the COBOL 
processor to indicate special processing of variable-length 
spanned records. If this bit is set, all records (spanned 
or nonspanned) are presented to the processing program in 
the record area. 


Flags. This l-byte field is used for internal data 
management control flags. 


Index to Beginning of Data. This l-byte field contains the 


index value to the beginning of the data (record descriptor 
word) in the data field. 


Position of Record in Block. This 2-byte field contains the 
relative position of the beginning segment of a record 
within the block. 


Track Address to Beginning Segment of Record. This 8&-byte 
field is used to save the track address of that block that 
has a beginning segment of a record that is being processed. 
The low-order 3 bytes of this field are used to save the 
record address of the block that will have the beginning 
segment of a record if a spanned record is to be written. 


Next IOB Address. This 4-byte field is used to save the 
next IOB address if a spanned record is to be written. 


Count Field. This 2-byte field is used to accumulate the 

number of bytes of data moved while segmenting. For 

extended logical record interface (XLRI), the count field is 

oan aee cae long and includes the two bytes of the following 
ie e 


Reserved. Not used. If extended logical record interface 
Sets is used, this field is used as part of the count 
ield. 
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® Data. The assembled logical record is located in this 
field. The maximum length of this field is either 
determined by the LRECL field of the DCB macro at OPEN time 
Plus 8 bytes for alignment or equal to 24 bytes less than 
the length of the record area parameter of the BUILDRCD 
macro instruction. 


Problem determination assists the user in determining the causes 
of abends by providing more information as to the cause of the 
abnormal termination. The recording and making available of 
Significant information about the problem may eliminate the need 
for a storage image dump. Better abend interpretation will be 
possible with the following problem determination operations: 


® Write-to-programmer giving the abend code, a return code 
that further describes the abend condition, and job 
environment information. 


e Recording of all control blocks relevant to the abend 
condition on a GTF data set, which will be dumped 
retitled by ABDUMP, or at the user's initiation by 


7 A user abend exit is provided to allow the evaluation of the 
condition before the abend is taken. 


® An abend that provides a dump of relevant control blocks. 


Problem determination is of particular benefit in the OPEN 
executors because having an alternative to an immediate abend 
results in greater latitude in the control of the termination of 
a task. The error can be evaluated and the need for that data 
set at the time the error occurred can be determined, with the 
option to continue processing without it. 


Problem Determination Module IFGOS59C: Module IFG0559C traces 
the data associated with a particular abend. 


The module operates as follows: 

e It receives control through an XCTL macro instruction from 
the O/C/EOV problem determination module, IFGO559B, when it 
senses a SAM problem determination flag. 


@ It issues a MODESET macro instruction to change to the key 
of the caller. 


° It issues a GETMAIN macro instruction for work area storage. 
e If the GETMAIN macro instruction is successful, it issues a 
GTRACE macro instruction to record, in the GTF data set, the 
data associated with the abend designated by the abend and 
condition codes. In addition to the TIOT DDNAME and the 
abend condition code, which are always present, one or more 
of the following data areas' is traced: 
DCB for BSAM or QSAM 
DECB for BSAM only 
Track capacity - maximum block size 
Current DEB extent entry 
All DEB extent entries 
IOB or ICB seek field 


First 88 bytes of the BDW and the block currently being 
processed 
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First 88 bytes of the RDN and the record currently bring 
processe 


The following is a list of abends, their associated condition 
codes, and the data traced for each. 


ABEND Condition 


Code Code — Areas Traced 

002 04 DCB, I0B or ICB seek field, record 

002 08 DCB, DECB, block 

002 oc | DCB, DECB, maximum block size, block 

002 10 DCB, DECB, block 

002 14 DCB, DECB, block 

002 18 DCB and record 

002 1C | DCB, DECB, maximum block size, block 

002 20 DCB, DECB, current DEB extent, maximum 

block size, block 

002 24 DCB, DECB, current DEB extent, maximum 
| block size, block 

008 04 All DEB extents, block 





° If the GTRACE macro instruction is successful, a LOAD macro 
instruction is issued to load the message CSECT, IGGMSGO1. 
A WTO macro instruction is issued to inform the programmer 
that the GTF data set contains records associated with this 
abend. Upon return, a DELETE macro instruction is issued to 
delete the message SECT. 


e It issues a FREEMAIN macro instruction to release the work 
area storage. 


o Ted pane fake control. xo module IFGO559E upon successful 
completion or if an error occurred in the GETMAIN or GTRACE 
macro instruction. 


SVC routines are used when the process requires operation in the 
supervisor state. The functions provided are ones that cannot 
be done in the problem state or in the user's key. 


DEVTYPE SVC Routine IGC0002D: This routine locates and passes 
to the requestor the characteristics of the device specified in 
the DD statement. The module operates as follows: 


e It issues an ESTAE macro instruction to establish a task 
recovery routine, IGCT002D, to intercept abnormal 
terminations. 


e It searches the UCB, its DASD class extension table, and the 
device characteristics table for the required information. 


® For the 3340 and the 3380 (all models), it determines the 
number of cylinders on the pack. 
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@ It places the data in the output area and returns to the 
calling program. 


IMGLIB ROUTINE 


IMGLIB SVC Routine IGCOO1LOE: The IMGLIB SVC routine, IGCOO0OLOE, 
builds a skeleton DCB and DEB for the SYS1.IMAGELIB data set or 
deletes the DCB and DEB for the SYS1.IMAGELIB data set, 
depending on the parameter passed to it in register 1. The 
routine is entered from the SVC 105 instruction. 


The IMGLIB macro is issued by OPEN executors and by SETPRT 
routines and can be issued by users. 


The routine operates as follows: 


e It issues an ESTAE macro instruction to establish a TRR, 
IGCTO1OE, to intercept abnormal terminations. 


® It makes a test to determine whether the control blocks for 
IMAGELIB need to be built or deleted. If register 1 
contains 0's, a DCB and DEB are built. 


@ It uses a GETMAIN macro instruction to obtain a work area 
and then uses a LOCATE macro instruction to determine where 
the IMAGELIB volume is residing. 


° It takes the address of the UCB table from the CVT and 
searches for the corresponding UCB. 


e It uses the OBTAIN macro instruction to read in the format-l 
DSCB and uses the information read and the UCB address to 
construct a skeleton DCB and DEB for the SYS1.IMAGELIB 
volume. The format-l1 DSCB describes up to three extents. 
The SYS1.IMAGELIB data set can reside on up to 16 extents on 
a permanently resident volume. 


e If there are more than three extents on SYS]1.IMAGELIB, the 
format-3 DSCB seek address is obtained from the format-l 
DSCB. It uses the OBTAIN macro to read in the format-3 DSCB 
and uses the information read and the UCB address to 
construct additional DEB extent descriptions. 


® If register 1 contains an address when the routine tests to 
determine whether the control blocks for the IMAGELIB volume 
need to be built or deteted, ne DCB and DEB for IMAGELIB 
are to be deleted. — 


e It uses the FREEMAIN macro Seetructicn to delete the control 
blocks. If the DEB is not on the DEB chain or it does not 
point back to the DCB, a 169 abend is issued. 


® It returns control to the reateene routine through a BR 14 
instruction. 


TRACK BALANCE, TRACK OVERFLOW ERASE, DEB/SANB UPDATE ROUTINES 


Control Module IGCO0002E (SVC 25——Track Balance, Track Overflow 
Erase, DEB/SAMB Update): Module IGCOO02E consists of a track 
balance routine, a track overflow erase routine, and an update 
routine. The track balance routine calculates the available 
space at the end of a track and erases the end of the track. 
The track overflow erase routine erases the end of a track and 
perhaps several full tracks. The update routine either updates 
the SAMB's IOBSEEK field or initializes the DEB's DEBBLKSI 
field. The track balance routine determines the available space 
by reading the count fields of the records on the track and 
erasing the remainder of the track; the track-overflow erase 
routine erases tracks at the end of each extent on which there 
are no data fields for blocks of the data set to which the 
extent belongs. The routine is used when a block in a data set 
with track~-overflow record format would span extents. 
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This module is entered when SVC 25 is executed by the following 
modules: 


READ/WRITE module IGGO1OBA (track balance) 

End of Block module IGGO19TV Cupdate DEBBLKSI) 
NOTE/POINT module IGGO19BK Cupdate SAMB) 
CLOSE executor IGG0201B (track balance) 


e It issues an ESTAE macro instruction to establish a TRR, 
IGCTOOZE, to intercept abnormal terminations. 


Track Balance Routine: This routine is given control when 
register 1 on input is not negative and the track-overflow flag 
BDCBCNTOV in DCBCIND1 is zero. The track balance routine 
establishes a valid value for the DCBTRBAL field of a DCB opened 
for output to a direct-access device, when the field value has 
been invalidated by a preceding READ, POINT, or OPEN macro 
instruction. 


The routine operates as follows: 


e DCBFDAD is establisked as the record preceding the next 
record to be written. 


® If the record number in DCBFDAD is zero, the whole track is 
available. DCBTRKBAL is set equal to the track capacity of 
the device (from the device characteristics table) and 
control is returned to the caller. 


® A work area is obtained, a channel program is built, and an 
EXCP is issued to read the count fields (CCHHRKDD) of each 
record on the track, up to the number indicated by DCBFDAD. 
The channel program ends with an erase CCW, which erases all 
records following the last record (as indicated by DCBFDAD). 


® It determines the exact track balance by subtracting the sum 
of all key-lengths and data lengths in all the count fields 
and the not-last record overheads from the track capacity 
and inserts the difference in the DCBTRBAL field of the DCB. 


Track-Overfilow Erase Routine: This routine is given control if 
register 1 on input is not negative and the track overflow flag 
CDCBCNTOV in DCBCIND1) is one. The track-overflow erase routine 
erases the space on a direct-access storage device that lies 
between the last block. to be written into the current extent and 
the end of that extent. 


The routine operates as follows: 
@ It receives control when it is loaded. 


e It substitutes ERASE commands for the WRITE commands in the 
channel program associated with the present IOB. 


e It issues an EXCP macro instruction to cause execution of 
the channel program and a WAIT macro instruction for its 
completion. 


e It returns control to the track-overflow write routine, 
irrespective of any errors in the execution of the channel 
program. 


DEB/SAMB Update Routine: This routine is given control if 
register 1] is negative. The DEB is validated by branching to 
=e cones routine. If register 0 is zero when SVC 25 is 
entered: 


® The DEBBLKSI field is initialized as the sum of key length 
and block size in the DCB. 
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BSP ROUTINE 


If register 0 is four when SVC 25 is entered: 


e The IOBSEEK field of the IOB in the SAMB is set equal to 
DCBFDAD. 


Control Module IGCO006I (SVC 69-—BSP): Module IGCOO06I 
backspaces the data set one block whether the data set is on a 
magnetic-tape or direct access device. 


The expansion of the macro instruction BSP includes an SVC 69 
instruction, which causes the module to be loaded and entered. 


The module verifies that the passed DCB describes a magnetic 
tape or direct-access device data set, and that the data set is 
being processed by BSAM. To accomplish this, the module 
operates as follows: 


e It receives control after it is loaded. 


® It issues an ESTAE macro instruction to establish a TRR, 
IGCT0069, to intercept abnormal terminations. 


e It issues a MODESET macro instruction to change to the key 
of the caller. 


® If the DCB is being processed by the CI and if a CI 
backspace routine entry point is provided, it gives control 
to the CI routine. When the CI routine relinquishes 
control, or if no CI routine is provided, it returns control 
to the processing program. 


e If the device is a terminal, it returns control to the 
processing program. | 


e If a dummy data set is being processed, it returns control 
to the processing program. 


e If the device type is not magnetic tape or direct access, 
reason and return codes are put in registers 0 and 15 and 
control is returned to the caller. 


If either a tape: mark or a direct-access EOF was read, 
reason and return codes are put in registers 0 and 15 and 
control is returned to the caller. ; 


e It issues a GETMAIN macro instruction to obtain storage in 
which to build an IOB, an ECB, and a channel program. 


e It builds and initializes an IOB and an ECB. 


From this point on, the control path depends upon the type of 
I/0 device. | 


For magnetic tape, the module operates as follows: 


e It constructs and issues an EXCP macro instruction for a 
channel program to backspace one block, followed by a NOP to 
obtain device~end information from the backspace channel 
program. 


e If the backspace channel program executed normally, the 
module sets register 15 to zero and returns control to the 
processing program. | 


e If the channel program executed with an error other than 
unit exception, the module sets the DCBIFLGS field to 
indicate a permanent error. The CHECK macro instruction, 
following the next READ or WRITE macro instruction, causes 
the CHECK routine to pass control to the processing 
program's SYNAD routine. 
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If the backspace channel program executed with a unit 
exception, the module constructs and issues an EXCP macro 
instruction for a channel program to forward space the tape 
one block, followed by a NOP to obtain device-end 
information from the forward space channel program. When 
channel end for the NOP occurs, the module returns control 
eee processing program with register 15 set to an error 
code. 


It issues a FREEMAIN macro instruction to free the work 
area. 


It issues a MODESET macro instruction to return to KEY 0 and 
returns control to the caller. 


direct~access devices, the module operates as follows: 


It decreases the DCBFDAD field in the DCB to the preceding 
block address across tracks, cylinders, or extents. 


It sets the DCBOFLGS field to show that the DCBTRBAL field 
value is invalid. 


If a valid DCBFDAD value has been established, the module 
updates the DCBFDAD value. It also updates the IOBSEEK 
field in the SAMB's IOB and sets the SAMSCHPR flag in the 
SAMB. Next, the module updates the IOBSEEK field in the 
next user IOB to be scheduled, or in all user IOBs if an 
extent boundary was crossed. 


If a track Cor cylinder or extent) boundary is backspaced 
over, all records® counts on the track backspaced to are 
read. The last record's count field is used to identify the 
last record on the track. 


If there is no valid preceding DCBFDAD value because the 
processing program has attempted to backspace beyond the 
first block, the module returns control to the processing 
program, with register 15 set to an error code. 


If a permanent error is encountered when reading the count 
fields (to establish the preceding DCBFDAD field value), the 
DCBIFLGS field value is set to indicate a permanent error. 
The CHECK routine, following the next READ or WRITE macro 
instruction, causes control to pass to the processing 
program's SYNAD routine. 


It issues a FREEMAIN macro instruction to free the work 
area. 


It issues a MODESET macro instruction to return to KEY 0 and 
returns control to the caller. 


STOW Module IGCOOO2A (SVC 21): Module IGC0002A builds the 
control blocks, buffers, and channel program required to perform 


the 


requested function and to do the diagnostics to verify the 


validity of the caller's request. 


The 


expansion of the STOW macro instruction includes an SVC 21 


instruction that causes this module to be loaded and to gain 
control. The STOW macro instruction is issued in one of two 
ways: 
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Explicitly by a processing program using BPAM for output. 
Implicitly by a processing Program using BSAM, QSAM, or BPAM 


for output, when issuing a CLOSE macro instruction to a DCB 
opened for a member of a partitioned data set. 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials -— Property of IBM 


The module operates as follows: 


It receives control when it is loaded. 


It issues an ESTAE macro instruction to establish a TRR, 
IGCTO0021, to intercept abnormal terminations. 


It issues a MODESET macro instruction to change to the key 
of the caller. 


If the DCB is neither OPEN nor OPEN for input, a MODESET 
macro instruction is issued to return to key 0, reason and 
return codes are put into registers 0 and 15, and control is 
returned to the caller. 


It issues a GETMAIN macro instruction to obtain storage for 
a work area in which to save information about the function 
being performed; save the parameters supplied by the caller; 
and build an IOB, ECB, channel program, and three buffers 
used in reading and writing directory blocks. 


If the GETMAIN macro instruction is not successful, a 
MODESET macro instruction is issued to return to key 0, 
reason and return codes are put into registers 0 and 15, and 
control is returned to the caller. 


It initializes the channel program and issues an EXCP macro 
instruction to search the directory for an entry block with 
a key equal to or higher than the member name. It reads 
that and the next entry block into the input buffers. For 
the change option (C), the search is on the member name that 
is the lowest in alphameric sequence. 


It checks the validity of the option requested, as follows: 


Add. Verifies that the member name does not already 
exist. 


Replace. Verifies that the member name exists and, if 
not, sets the return code and changes the option to Add. 


Change. Verifies that the member name to be changed 
exists and that the new member name does not duplicate 
an existing name. 


Delete. Verifies that the member name exists. 


If an I/O error occurs while directory entry blocks are 
being read or if the option requested is invalid, a FREEMAIN 
macro instruction is issued to free the work area, a MODESET 
macro instruction is issued to return to key 0, reason and 
return codes are put into registers 0 and 15, and control is 
returned to the caller. 


If the option requested is valid, the module transfers 
control to module IGGO2Z210A through an XCTL macro 
instruction. 


STOW Module IGGO2Z10A: Module IGGO2Z10A builds the channel 
program used by module IGGO2Z1AB and, if required, writes an EOD 
marker following the last member written. 


The module is loaded and receives control through an XCTL macro 
instruction issued by module IGC0002A. 


The module operates as follows: 


It writes an EOD marker following the last member written if 
the following conditions are met: 


The Add or Replace option was specified. 


The entry being added or replaced is not an alias. 
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The DCB was not opened for RDBACK or UPDATE. 
The last I/0 operation was write. 


If the data set must be extended to write the EOD marker, 
the module issues a MODESET macro instruction to change to 
key 0, a SETLOCK macro instruction to obtain the local lock; 
and branches to DEBCHK to check the validity of the caller's 
DEB. If the DEB is valid, the DEBVOLSQ is changed for EXCP, 
a SETLOCK macro instruction is issued to free the local 
lock, and a MODESET macro instruction is issued to return to 
the caller's key. 


It then changes the MACRF operand in the user's DCB to EXCP 
and issues an E0OV that points to that DCB. 


Upon return, it restores the MACRF operand and validates and 
restores the DEBVOLS@ field. 


If the DEB is not valid, it issues an ABEND macro 
instruction to terminate processing. 


If an EOD marker is written after the last member, the FDAD, 
RELAD, and TRBAL fields in the caller's DCB are updated. 


If an I/O error occurs while the EOD marker is being 
written, the module frees the work area, returns to key 0, 


sets the reason and return codes in registers 0 and 15, and 
returns control to the caller. 


It returns the TTR of the last member written if the 
following conditions are met: 


The add or replace option was specified. 
The entry being added or replaced is not an alias. 


It builds the channel program used by module IGGO2Z1AB to 
read and write directory blocks. 


If no errors are detected, it transfers control to module 
IGGO2Z1AB through a XCTL macro instruction. 


STOW Module IGGO21AB: Module IGGO2Z21AB maintains partitioned 
data set directories’ in ascending order of the binary values of 
the names of the members. 


Module IGGO21AB is loaded and receives control through an XCTL 
macro instruction issued by module IGGO210A. 


The module operates as follows: 


160 MVS/XA SAM Logic 


If the option requested is add, replace, or change and if 
there are no unused directory blocks, a dry run on the 
directory is made to determine if sufficient space is 
available in which to perform the requested function. 


It adds, replaces, changes the name of, and deletes 
directory entries, per the requested options, by issuing an 
EXCP macro instruction to write and read directory blocks. 


It expands or compresses the directory as necessary to 
accomplish the requested function. 


If an I/0 error occurs while writing or reading directory 
blocks, or, if there is not sufficient space remaining in 
the directory, processing in this module is terminated. 


It issues a FREEMAIN macro instruction to free the work 
area. 


It issues a MODESET macro instruction to return to key 0. 


It returns control to the calling program. 
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BLDL OR FIND ROUTINES 


FIND (C Option) Macro Expansion: The macro expansion moves the 
relative address (CTTRK) from the passed input parameter list to 
the DCBRELAD field in the requester's DCB. The FIND macro 
instruction then does a branch-and-link to the POINT routine. 


FIND (D option) Macro Expansion: The macro expansion loads the 
DCB address into register 1 and complements it to notify BLDL 
this is a FIND request. The address of the BLDL parameter list 
(that is, the list of member names) is loaded into register 0. 
SVC 18 CBLDL) is then issued. 


BLDL Macro Expansion: This is the same as for the FIND (D 
option) described above, except that the DCB address is not 
complemented. 


bel ral Module IG6C018 (BLDL): The module gains control through 

n SVC 18 instruction in a processing program. A FIND (D 
Gotion) or BLDL macro instruction expansion generates an SVC 18 
instruction, which causes control to pass to CSECT IGC018. BLDL 
is link-edited into the nucleus as an RSECT Cread only). t 
executes in 3l-bit addressing mode, RMODE ANY, and supports 
31-bit input parameter lists. 


A second csect in module IGC018, named IECOSCRI, contains the 
system convert routines and is link-edited into the nucleus as 
RMODE 24, AMODE ANY. This means it resides below the 
16-megabyte virtual storage line and executes in the addressing 
mode (24 or 31] bit) of the caller. 


Programs may use a BALR instruction and the address found in the 
communication Saceae table (CVT) for entry points 
TECPCNVTCCVTPCNVT), IECPRLTVCCVTPRLTV), snd. IECOSCRICCVTOSCRI), 
to pass control to the respective convert routines. 


The BLDL routine operates as follows: 


® It issues an FESTAE macro instruction to establish the 
recovery routine. 


® Based on the key in the DEB (pointed to by the passed or 
defaulted DCB) a GETMAIN is issued for a work area in 
subpool 253 for a key 0 data set or subpool 230 for a 
nonzero key data set. Among the contents of the work area 
are the parameter list used if the LNKLST lookaside table is 
available, and the IOB, channel program, and buffers if I/70 
nee ota nen: The work area must be in the same key as the 
an ‘ 


® If the LNKLST lookaside table is available, it is searched 
by BLDL for any of the following conditions: 


- The passed DCB is the LINKLIB DCB (same address as in 
CVTLINK). 


- The DCB address is zeros and there is no steplib, 
tasklib, or joblib specified. 


= The specified member(s) are not found in the specified 
data sets. 


Note: The LNKLST lookaside (LLA) directory replaces the 
resident BLDL, table which is initialized during NIP. The 
LNKLST lookaside directory is a resident directory of 
entries built during IPL by starting the LLA procedure. It 
contains the directory entries for all members in 
SYS1.LINKLIB and for all data acs concatenated to it in the 
LNKLST. (See Initialization and Tuning for more information 
on the LNKLST member in SYS]. PARMLIB.) 


BLDL searches the LNKLST lookaside directory by passing a 


parameter list to the subroutine CSVLLSCH. CSVLLSCH calls 
the LNKLST lookaside cross-memory search routine CCSVVLSO1), 
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which searches the LNKLST lookaside directory for the member 
name and copies its directory entry into the passed area 
(the user's input parameter list or the BLDL work area, if a 
FIND request). Control is then returned to BLDL. 


If the LNKLST lookaside directory is not available, the 
‘LNKLST PDS directories are searched. 


e If SYS].LINKLIB is not the referenced library, or if the 
LNKLST lookaside directory is not available, BLDL issues an 
EXCP to search the directory for a directory block with a 
key equal to or higher than the given member name. That 
directory block is read into virtual storage and searched 
for the matching member name. 


e If the name is in the LNKLST lookaside directory, or the 
matching entry was found in a directory block, the directory 
entry is copied into the user's parameter list. 


6 If this is a FIND request, the relative address is copied 
into the DCBRELAD field in the DCB and control is passed to 
the POINT routine by issuing a BASSM instruction for 
supervisor key callers or a SYNCH macro instruction for user 
key callers. In either case, control is passed to a 
bootstrap routine in IGCO18 (part of csect TECOSCRI to 
ane a branch to =e POINT routine in 24-bit addressing 
mode 


® If this is not a FIND request, BLDL obtains the next name in 
the parameter list to be matched, and continues the search. 


e When the input parameter list has been completed, the 
routine returns control to the caller passing a return code 
in register 15. 


Convert Relative-to-Full Address Routine--Entry Point: 

IECPCNVT: Conversion routine IECPCNVT accepts, in register 0, 
relative addresses of the form TTRN for direct-~access devices 
and presents the corresponding full device addresses of the form 
MBBCCHHR at the location shown by register 2. This routine! s 
external interface is documented in System-Dat dministr 


The routine operates as follows: 


® For each extent, ‘the routine reduces the amount, TT, by the 
number of tracks in the extent. When the balance is 
negative, the proper extent has been reached. 


® It determines the full device address for the specified 
relative value. 


Convert Full-to-Relative Address Routine--Entry Point: 
IECPRLTV: Conversion routine IECPRLTV accepts, from the 
location shown by register 2, a full device address of the form 
MBBCCHHR for direct-access devices and presents the 
corresponding relative address of the form TTRO in register 0. 


The routine totals the number of tracks per extent for the (M-1) 
extents. For extent M, it adds the number of tracks entered 
into the extent. This routine's external interface is 


documented in System-Data Administration. 


Convert Record Number to Sector Value Routine~Entry Point: 
IECOSCRI: Conversion routine IJECOSCR1 converts the record 
number for a fixed- or variable-length record data set to a 
sector value for use on an RPS device. 


Note: For callers of this routine in 31-bit addressing mode, 
the +0 and +8 offsets into this routine have been changed to +16 
and +20 respectively. 


For fixed-length records, register 0 contains a data length in 
the two high-order bytes and a key length in the third byte. 
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The fourth byte contains the record number for which the sector 
value is desired. 


For variable-length records, register 0 contains the number of 
key and data bytes already written in the two high-order bytes. 
The third byte contains a 1 (for keyed records) or a 0 ( for 
nonkeyed records). The fourth byte contains the record number 
for which the sector value is desired. 


For both types of records, registers 2, 14, and 15 contain the 
following: 


Register 2 The hioh-seder byte contains the UCBt19. The other 
3 bytes contain the address at which the sector 
value is stored. 

Register 14 The return address. 

Register 15 The entry point address of this routine. 


Upon completion, the sector value is stored at the designated 
address and registers 0, 9, 10, and 11 are modified. 


Calculate Track Balance or Records per Track Routine-—Entry 
Point IECOSCRI+12: Within module IGC018, the conversion routine 
IECOSCR1 calculates the new track balance or the number of 
records that can fit on a DASD track. 
The routine input consists of: 
e Device table address 
e Record number 
e Key length 
e Data Length 
e Track balance Coptional) 
Register 2 contains the address of this 12-byte parameter list. 
The routine returns: 
e In register 0, one of the following values: 
- The number of records that will fit on a track 
— The new track balance 
- The largest record that will fit on a track 
e In register 14, the return address 
@ In register 15, the address of IECOSCRI 
Registers 9, 10, and 11 are work registers used by the routine. 


The conversion routine is invoked via the TRKCALC macro. For 
information about the TRKCALC macro, see System-Dat 


Administration. 


SYNADAF AND SYNADRLS ROUTINES 


See Diagram 0 for an illustration of the flow of processing 
through SYNADAF routines. 


The SYNADAF routines pass control between modules by use of 


V-type address constants so as to maximize the chances of the 
next module being on the same page. 
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SYNAD Analysis and Format Routine IGCOO06H: This routine is the 
SYNADAF SVC initial load module and the only load module for the 
SYNADRLS SVC. It gets storage for the register save area and 
the message buffer area and transfers control to the secondary 
load for error analysis. For SYNADRLS, it restores the save 
area pointers and frees gotten storage. 


The routine operates as follows: 
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It issues an ESTAE macro instruction to establish a task 
recovery routine (TRR) to intercept abnormal terminations 
while SYNADAF processing is in effect. 


It tests to determine whether it was entered for SYNADAF or 
SYNADRLS. 


If entered for SYNADAF: 


It issues a GETMAIN macro instruction for a general 
register save area and a message buffer area from 
subpool 0, in the user's key. 


It initializes the message buffer area. 


It tests for a valid access method. If not valid, it 
issues an abend. 


It loads the message CSECT. 


It sets up the parameter list for transfer of control to 
secondary load routines for further analysis. 


For BISAM or QISAM, it tests to determine if the DEB 
compatibility interface (CI) bit is set. If so, and the 
CI SYNADAF routine is provided, it transfers control to 
the SYNADAF routine via a SYNCH macro instruction. It 
returns to the caller when it again receives control. 


If no CI SYNADAF routine is provided the routine returns 
to the caller. 


If the DEB CI bit is not on, it branches to IGC0206H for 
BISAM and to IGC0306H for QISAM. 


It branches to IGC0406H for BTAM, QTAM, or GAM. 
It branches, to IGCO506H for EXCP. 
It branches to IGCO906H for BPAM or BDAM. 


For BSAM or QSAM, it tests to determine if the DCB CI 
bit is on. If so, and the CI SYNADAF routine is 
provided, it branches to the SYNADAF routine via a SYNCH 
macro instruction. It returns to the caller when it 
again receives control. 


If the SYNADAF routine is not provided, the routine 
returns to the caller. 


If the DCB CI bit is not on, it branches to IGC0O906H for 
BSAM or QSAM. 


If entered for SYNADRLS: 


It restores the caller's save area pointer. 


It releases the storage gotten for the register save 
area and the message buffer area. 


It returns to the caller. 
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SYNADAF for BSAM, QSAM, BDAM, EXCP, and BPAM IGCO0106H: This 
routine continues the error analysis for EXCP, BDAM, BPAM, BSAM, 
and QSAM and formats the message buffer. It receives control 
from IGCO506H for EXCP and from IGC0906H for the access methods. 
The routine operates as follows: 

e It tests to determine if the data set was opened. 

e If the data set was opened: 


- It converts the DCB block count for tape and the IOB 
last seek address for disk storage into printable form. 


- It checks the ECB post codes. 


- If there is a permanent I/0 error, it finds the IOBCSW 
for a unit check condition. 


= If there is a unit check, it transfers control to 
IGCO806H for the 3203 or 3211 Printers and 3800 Printing 
Subsystem and to IGC0706H for all other devices. 


= If there is no unit check, it deletes the message CSECT 
and returns to the caller. 


8 If the data set was not opened or if there was no permanent 
I/0 error: 


- It examines the post code and formats the message 
accordingly. 


- It deletes the message CSECT and returns to the caller. 
SYNADAF Routine for BDAM and BISAM IGCO206H: This routine 
oe = the formatting of the message buffer for BDAM and 
It operates as follows: 

° For BDAM: 
- It formats the DDNAME. 


- It searches the completion codes of the DECB and stores 
the related message. 


= If there is‘an IOB, it translates the Seek address into 
printable format. Else, it sets the Seek address field 
of the message buffer to zeros. 
® For BISAM: 


- It searches the completion codes of the DECB and stores 
the related message. 


- It formats the device type and DDNAME and stores them in 
the message buffer. 


e It deletes the message CSECT when formatting for BDAM or 
BISAM is complete. 


® It returns to the caller. 

SYNADAF for QISAM IGCOSO6H: This routine analyzes status and 
sense bytes and formats the condition portion of the message 
buffer, for QISAM. 

The routine operates as follows: 

® It formats the operation type. 


e It tests the ECB post code. 
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e If the I/0 event is not completed normally, it tests for an 
extent violation or a permanent I/0 error and stores the 
corresponding error message. 


° It analyzes the exceptional condition code and stores the 
error message. 


® It formats the device type, unit ID, Seek address, and 
DDNAME. 

@ If there is no pointer to the DCB, it deletes the message 
CSECT and returns to the caller with a return code of 8 in 


register 15. 


e Otherwise, it branches to IGC0406H for completion of the 
formatting. 


SYNADAF ROUTINE FOR TCAM/QISAM IGCO406H: This routine continues 
the error analysis for GAM, BTAM, QTAM, QISAM, and TCAN. 


It operates as follows: 

e It receives control from IGCOQ006H for GAM, BTAM, or QTAM. 

e It formats the access method type and stores "SYNAD ROUTINE 
NOT YET SUPPORTED" in the message buffer and returns to the 
user. 

e It receives control from IGCO306H for QISAM. 

e If the error is not a permanent I/0 error, it searches the 
CSW status bytes and the IOB sense bytes and formats the 
related message text. 

® It receives control from IGC0906H for TCAM. 

e It stores the access method type in the message buffer. 

e It checks to determine if the error is a work area overflow 
or an invalid destination. If neither is the cause of the 
error, the routine assumes a sequence error and stores the 
appropriate message text. 

e It formats the operation type. 

e It deletes the message CSECT and returns to the caller. 


SYNADAF SVC IGCOS506H: This routine formats the message buffer 
for EXCP. 


The routine operates as follows: 
@ It stores the access method type in the message buffer. 


y It obtains the operation code from the CCW and translates it 
into printable form. 


e It validity~checks the UCB. 


e If the UCB is not valid, it deletes the message CSECT and 
returns to the caller with a return code of 8 in register 0. 


2 It stores the unit ID in the message buffer. 


e It branches to IGCO0106H for further analysis. 
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SYNADAF SVC for OCR Load IGCO606H: This routine completes the 
formatting of the message buffer for OCR devices. IGC0606H 
receives control from IGCO906H. 

It operates as follows: 


@ It translates the CCW operation code into printable form and 
stores it in the message buffer. 


® It formats the DDNAME and stores it in the message buffer. 


e It checks for the ECB completion code and stores it in the 
message buffer. 


° It searches the IOBCSW status bytes and the IOB sense bytes 
and formats the appropriate text. 


® The sense byte settings for the OCR are device-dependent so 
the routine increases the pointer to the appropriate message 
text and then stores the pointer in the message buffer. 

® It deletes the message CSECT and returns to the caller. 

SYNADAF Unit Check Analysis IGCO706H: This routine analyzes the 

ION sense bytes on a unit check condition for direct access; 

magnetic tape, and unit record devices, except for the 3203 or 

3211 printers and 3800 Printing Subsystem. It receives control 


from IGCO0106H and formats the message buffer and sets blanks in 
the work area. 


It operates as follows: 
® It scans the IOB sense bytes for error indications. 


@ It analyzes IOB sense bytes 0 and 1 and stores the 
corresponding error message in the message buffer. 


e If there is a write-inhibit condition for a 3330 device, it 
stores the write-inhibit message text. 


e If the unit record device type is a TCR (tape cartridge 
reader), the routine reanalyzes the sense bytes and stores 
the appropriate message text. 

e It deletes the message CSECT and returns to the caller. 

SYNADAF Unit Check Analysis IGCO806H: This routine analyzes the 

IOB sense bytes on unit check conditions for 3203, 3211, 3262 

model 5, 4245, 4248 printers and 3800 Printing Subsystem. 


IGCO806H receives control through a branch from IGCO1LO6H on a 
unit check condition. 


It operates as follows: 
° It scans the IOB sense bytes for error indications. 


e If the IOB sense bytes do not have the status indicator, it 
sets the message text to "unknown condition." 


e It stores the appropriate message for the IOB sense bytes. 


e It deletes the message CSECT and returns control to the 
caller. 


SYNADAF Error Analysis IGC0906H: This module continues the 
generalized analysis of errors for BDAM, QSAM, BPAM, BSAM, and 
TCAM dummy data sets. 

IGCO906F receives contro: through a branch from IGCOOQO06H. 

It operates as follows: 


® For BDAM: 
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- If the DECB does not contain an IOB address, the routine 
transfers control to IGC0O206H for completion of the 
message buffer formatting. 


- If the DECB contains an IOB address, the routine formats 
the unit ID, device type, and operation type and 
branches to IGC0106H for further analysis. 


° For BSAM, QSAM, and BPAM 


_ It checks to determine if the device is an OCR. If so, 
it branches to IGCO606H. 


- It formats the operation type, unit ID, and device type. 
- It branches to IGCO1O6H for further analysis. 
9 For TCAM dummy data sets, it branches to IGCOG06H. 


| SETPRT, SETDEV AND IMGLIB ROUTINES 


When an SVC 81 CSETPRT or SETDEV) or SVC 105 CIMGLIB) 
instruction is issued, the executors associated with SETPRT, 
SETDEV, and IMGLIB receive control. Figure 33 on page 170 shows 
the flow of control among these executors. 


When an SVC 81 instruction is issued for an IBM 3800 Printing 
Subsystem, IGCO008A is the initial executor to receive control. 
Executors IGG08110, IGG081ll, IGG08112, IGG08113, IGG08114, and 
IGG08115 are then given control, depending on the contents of 
the SETPRT parameter list. 


When an SVC 81 instruction is issued for a printer that is not 
an IBM 3800 Printing Subsystem, IGCOO008A is the initial executor 
to receive control. Then, either executor IGG08105 for image 
table processing printers, or IGG08101 and IGG08102 in 
combination for nonimage table processing printers, may receive 
control from IGCO008A. The executors process the UCS request 
and perform image verification if required. Control may then be 
passed from IGC0008A, IGG08101, IGG08102, or IGG08105 to 
IGG08103 and IGG08104. Executors IGG08103 and IGG08104, 
respectively, locate the FCB image and load it into the 
printer's forms control buffer. Executor IGG08104 performs 
image verification or allows form alignment. 


When a SETPRT is issued for a SYSOUT data set, executor IGCOO0O08A 
gives control to executor IGG08117. 


SETPRT is also issued during OPEN processing. When SETPRT is 
called by OPEN and the device is a printer other than a 3800 

Printing Subsystem, SETPRT ensures that a UCS image and, for 

devices that have it, an FCB is or has been specified. 


All messages issued by the SETPRT executors are in a message 
CSECT. The SETPRT executors must extract the text from the 
CSECT before issuing the message. If the user's key is greater 
than or equals 8, the SYNCH macro instruction is used for all 
WTO/WTORs for integrity reasons, because the message text is 
moved to the user's work area. 


Two executors are associated with the SETDEV macro instruction. 

The SETPRT executor, IGCO0O08A, receives control when the SVC 81 

instruction is issued. Executor IGG08108 receives control from 

pSaairhal ep sae to initialize the IBM 3890 Document Processor 
ontro nit. 


Executor IGCOOLOE receives control when SVC 105 is issued to 
build or delete the DCB and DEB for a SYS].IMAGELIB data set. 
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SETPRT Routine IGCOOO8A: The macro instruction SETPRT 
(set-printer) expands into an SVC 81 instruction that causes 
this routine to be loaded and to gain control. IGCOOO8A 
determines if the IBM 3890 Document Processor control unit is to 
be loaded and, if so, gives control to routine IGG08108. If the 
IBM 3800 Printing Subsystem is to be set up, control is given to 
1GG08110. If a SYSOUT data set is requested, control is given 
to routine IGG08117. 
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The SETPRT routine operates as follows: 


It issues an ESTAE macro instruction to establish a TRR, 
IGCT1081, to intercept abnormal terminations. 


It saves information in the SVRB extended save area for 
IGCT1081, in case the SETPRT ESTAE gets control. 


It contains a bootstrap routine that gets control from RTM; 
issues a LOAD macro instruction, followed by a DELETE macro 
instruction, for IGCT1081 (to get the entry point address of 
IGCT1081 in LPA); and branches to that module. 


It issues a LOAD macro instruction for message CSECT 
CIGGMSGO1). 


It tests the DCB for a SYSOUT data set open for output and 
bypasses unit record processing. 


If the 3890 Document Processor control unit is to be loaded, 
it passes control to routine IGG08108. 


It uses the GETMAIN macro instruction to obtain two work 
areas. 


1. Key 5, subpool 230, for BLDL parameter list, a general 
work area. 


2. User key, subpool 230, another general work area. (See 
"SETPRT Work Area®™ in the "Data Areas™ section. ) 


It sets up various fields in the work areas for subsequent 
loads of SETPRT. 


vihen EXCP is specified in the DCB, or if OPEN is the caller 
of SETPRT, it builds an IOB in the user Key work area. 


When QSAM is specified for the DCB, the routine causes all 
outstanding output requests to quiesce. 


If it is for a SYSOUT data set, control passes to routine 
IGG08117. 


It uses the EXCP macro instruction to execute block data 
check or reset block data check according to the 
specification in the SETPRT parameter list if any. If 
neither is specified, block data check is executed. 


If OPTCD=FOLD or UNFOLD is specified, an EXCP is issued to 
set the mode. 


It issues SVC 105 to open SYS1.IMAGELIB. 


If the device is a 3800 Printing Subsystem, control is given 
to executor IGG08110. 


When UCS image processing is required, it passes control to 
either executor IGG08101 for non-image table processing 
printers, or IGG08105 for image table processing printers. 


If FCB processing is required but UCS processing is not, 
routine IGG08103 is called. 


If no UCS or FCB processing is required, it frees the work 
area and returns to the caller with a return code in 
register 15. For a description of the return codes, see 
Data Administration: Macro struction Reference. 
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SETPRT Routine IGG08101: Routine IGG08101 is entered from 
routine IGCO008A when the specified UCS image is to be loaded 
from the SYS1.IMAGELIB. 


The routine operates as follows: 


If OPEN is processing, the operator is requested to specify 
a UCS image name if none is specified and the currently 
loaded UCS image (if any) is not a default image. 


If OPEN is processing, no UCS image is specified, and the 
currently loaded UCS image, if any, is a default image, then 
the currently loaded image is made the requested UCS image 
in order to force reload of the UCS image and thereby ensure 
its integrity. 


It uses the BLDL macro instruction to locate the UCS image 
in the SYS1.IMAGELIB. 


If the UCS image is not in the library, the routine requests 
the operator to specify an alternate UCS image to be loaded. 


l. If the operator cancels the job step, it returns to the 
caller with a nonzero return code in register 15 
Cnon-FCB printers). For FCB printers, it transfers 
control to IGG08103. 


2. If the operator replies "U", the currently loaded image 
is used. 


If an error occurs during BLDL processing, it returns 
control to the caller with a nonzero return code in register 
15 Cnon-FCB printers). For FCB printers, it transfers 
control to IGG08103. 


When the UCS image is in the library, the routine uses the 
gi macro instruction to retrieve the UCS image from the 
ibrary. 


Before returning to the caller, it issues a DELETE macro 
instructions for the message CSECT and for the UCS image, if 
it was loaded. It also frees the work areas and issues a 
CLOSE macro instruction for SYS].IMAGELIB. 


The routine passes control to routine IGG08102 to load the 
retrieved UCS image into the UCS buffer. 


SETPRT Routine IGG08102: Routine I[GG08102 is entered from 
routine IGG08101 to load the UCS image into the UCS buffer and 
to print verification lines if required. 


The routine operates as follows: 
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It uses the EXCP macro instruction to load the UCS image 
into the UCS buffer. 


If an error occurs during UCS load, it returns control to 
the caller, with a nonzero return code for non-FCB printers. 
For FCB printers, it transfers control to IGG08103. 


Before returning to the caller when an error condition 
exists, it issues DELETE macro instructions for the message 
CSECT and for the UCS image, if it was loaded. It also 
frees the work areas and issues a CLOSE macro instruction 
for SYS] .IMAGELIB. 


When verification of the image is required, the routine uses 
the EXCP macro instruction to print the UCS image for 
verification. 


If an error persists during verification, it returns control 
to the caller with a nonzero return code in register 15 

MAPS Pt For FCB printers, it transfers control 
o é 
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It gets the local lock and updates the UCB to reflect the 
new image. It then releases the local lock. 


It uses the DELETE macro instruction to release the UCS 
image. If no FCB processing is required, FREEMAIN macro 
instructions release the work areas, a DELETE macro 
instruction releases the message CSECT, and control is 
SISA to the caller. IGCOO08A, IGG08101, IGG08102, or 


The routine operates as follows: 


_ If the UCS return code indicates a possible lost data 
condition or, if OPEN is processing and an error 
occurred during UCS processing, no FCB processing is 
performed. 


- It checks the DCB exit list to see whether the specified 
FCB image is defined in the problem program. 


- It uses the BLDL macro instruction to locate the FCB 
image in SYS1.IMAGELIB if the image is not specified in 
an exit list. 


~ For the IBM 4248 Printer, the executor attempts to 
locate the FCB using the prefix FCB4 (a 4248 format 
FCB). If that FCB cannot be located, an attempt is made 
=e locate the FCB using the prefix FCB2 (a 3211 format 


- If an error occurs during BLDL processing, it 1 
remembered and control is given to 1GG08104 with an 
indicator set that no FCB is to be loaded. 


- If the image is not found in the library, the routine 
requests the operator to specify an alternate FCB image. 


— If the operator cancels the job step, it is 
remembered and control is given to IGG08104 with an 
indicator set that no FCB is to be loaded. 


— If the operator replies "U", the currently loaded 
image is used. 


IGG08104 is called to load the image into the forms 
control buffer and print a verification, if requested. 


SETPRT Routine IGG08104: Routine IGG08104 loads the FCB image 
into the forms control buffer and verifies the load and/or 
allows forms alignment. It is entered from IGG08103. 


The routine operates as follows: 


If the FCB is found in an exit list or if OPEN is 
Broce): a temporary copy of the requested FCB is 
created. 


If COPYP and/or PSPEED is specified in the SETPRT parameter 
list, if the FCB is found in an exit list, or if OPEN is 
processing, a temporary copy of the requested FCB is 
created. Any COPYP and PSPEED specifications are then 
copied into the temporary FCB. 


The FCB is loaded into the device. 
If an error occurs loading the FCB, a message to the 


eee is issued and a return code and a reason code are 
set. 
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If VERIFY is specified, the image is printed for visual 
verification. 


If an I/O error occurs during verification Cother than a 
possible lost data condition), control is returned to the 
caller. If a possible lost data condition is detected, the 
verification display is restarted up to 5 times before the 
condition is considered permanent. Control is returned to 
the caller with a nonzero return code in register 15 


If ALIGN is specified, the operator is instructed to align 
the forms. 


It issues a DELETE macro instruction for the message CSECT 
and for the FCB image, if it was loaded from SYS1.IMAGELIB. 
It also issues a CLOSE macro instruction for SYS1].IMAGELIB 
and frees the work area gotten by IGCOOO8A. 


The routine always exits to the caller. 


SETPRT Executor 1GG0B105: Executor IGG08105 receives control 
from IGCOO008A and performs processing for image table printers. 


The executor operates as follows: 
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A eal continues if one of the following conditions is 
met: 


1. OPEN is processing and either a nondefault or no UCS 
image-id has been previously specified. In this case, 
the operator is requested to specify an image-id. The 
operator can reply with the id of an image to be used, 
and, optionally, fold and/or verify. The operator can 
also cancel the UCS request, or may reply "U"™ to 
indicate the currently mounted band is to be used. 


2. A UCS image is requested and: 
~ It is not satisfied by the currently mounted band. 
- UCS verification is requested. 


- Ui fold/unfold mdde differs from that previously 
set. 


The appropriate image table is located in SYS1.IMAGELIB and 
loaded into storage. The image table provides: 


- The correspondence between the UCS image-id (alias) and 
the printer band-id. 


- An indication as to whether the image is a default 
image. 


- A band description to be displayed as part of the 
verification display. 


a Optionally, the number and length of verification lines 
in the verification display. 


vihether initially requested, or specified by the operator, 
the name of the image to be used (alias) is searched for in 
the image table. If it is not found, the operator is asked 
to specify an alternate image-id. The operator can reply 
with the id of an image to be used, and, optionally, fold 
and/or verify. The operator can also cancel the UCS request 
on oY leas "YU" to indicate the currently mounted band is 
o be used. 


When the name of the image to be used is found in the image 
table, the operator is instructed to mount the appropriate 
band if it is not already mounted. If the printer is an IBM 
4245, the image of the band to be mounted is also contained 
in the operator display. 
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After mounting the appropriate band, the operator indicates 
it is mounted by replying to the mount message with the same 
image-id the operator was instructed to mount. 
Alternatively, the operator can reply with the id of an 
image to be used, and, optionally, fold and/or verify. The 
operator can also cancel the UCS request or may reply "U" to 
indicate that the currently mounted band is to be used. 


e When the operator indicates the correct band is mounted, the 
appropriate mode is set (fold or unfold). 


e If the UCS image is to be verified, the following is 
performed: 


- If the printer is a 4248, the horizontal copy feature is 
deactivated. 


- The UCS verification display is produced. This display 
consists of a header line followed, optionally, by lines 
displaying the currently loaded image. 


- If the printer is a 4248, the horizontal copy feature is 
reactivated. 


- The operator is asked to verify the image by replying 
either: 


— VERIFY Cthe image is correct). 
— CANCEL (the image is not correct). 
— RETRY (the UCS verification display is given again). 


a If UCS processing is successful, the UCB UCS extension 
is updated to reflect the current image-id and mode. 


e The image table is deleted. 
e A freemain is issued for the work area. 
e Executor IGG08103 is called. 


SETDEV Routine IGG08108: IBM 3890 Document Processor routine. 
IGG081908 receives control from routine IGCOO08A. 


The routine operates as follows: 

e It verifies the SETDEV parameter list. 
e It loads the appropriate control unit. 
e It exits to the problem program. 


SETPRT Executor 1G6G08110 (For the 3800 Printing Subsystem 

only): Executor 16608110 is entered from executor IGC0008A when 
the UCB device type indicates that SETPRT processing is being 
done for a 3800 Printing Subsystem. 


The executor operates as follows: 


e It builds a SETPRT path table according to the format and 
content of the SETPRT parameter list. The path table is 
used to control the sequence of execution for subsequent 
3800 Printing Subsystem SETPRT executors. 


® When printer initialization is requested, IGG08110 uses the 
EXCP macro to issue the channel command sequence that resets 
the controls for the 3800 Printing Subsystem. 


e It issues the LOAD macro to load the requested character 


arrangement tables residing in SYS1.IMAGELIB (or at 
addresses provided by the caller). 
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e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGGO8115. Otherwise, it calls the next 3800 Printing 
rtf ahaa SETPRT executor specified in the SETPRT path 

a @. 


SETPRT Executor IGG08111 (For the 3800 Printing Subsystem 
only): Executor IGG08111 is entered when character arrangement 
tables are successfully obtained by IGG08110. 


The executor operates as follows: 


e It determines which character sets are needed for the 
character arrangement tables specified in the SETPRT 
parameter list. 


 @ It reorders the character set positions to be loaded by 
referencing the current IDs as shown in the UCB. This 
minimizes the possibility of reloading previous character 
sets into the 3800 Printing Subsystem. 


e It formats the translate tables, using the character 
arrangement tables. 


o . It uses the EXCP macro to load the 3800 Printing Subsystem's 
writable character generation modules CNCGMs) with the 
even-numbered hardware character sets. 


e It issues a BLDL and a LOAD macro to read the odd-numbered 
library character sets into storage. 


e It uses the EXCP macro to load the library character sets 
into the 3800 Printing Subsystem's WHCGM storage with a load 
graphic character modification CCW. 


® It issues a DELETE macro to free the storage used for the 
library character sets. 


e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGGO08115. Otherwise, it calls the next 3800 Printing 
rds rb haa SETPRT executor specified in the SETPRT path 

able. 


SETPRT Executor IGG08112 (For the 3800 Printing Subsystem 
only): Executor IGGO08112 is entered after successful processing 
by IGGO81ll1, or when the SETPRT parameter list requires copy 
modification. 


The executor operates as follows: 


e It uses the EXCP macro to select the proper 3800 Printing 
Subsystem's translate table position(s) and to load the 
translate table(s) into the printer. 


e When graphic modification modules are specified for the 
character arrangement tables, IGGO8112 issues the LOAD macro 
to obtain the desired graphic modification modules from 
SYS1.IMAGELIB. 


e It issues EXCP to load the graphic modification records into 
the 3800 Printing Subsystem. 


® It issues a DELETE macro to free the storage used by the 
loaded graphic character modification modules. 


€ If a copy modification module (residing in SYS1.IMAGELIB) is 
requested, IGGO81l12 issues LOAD to retrieve it. 


® It uses EXCP to load the 3800 Printing Subsystem with the 
copy modification record. 


® It issues a DELETE macro to free the storage used by the 
loaded graphic character modification modules. 
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e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGG08115. Otherwise, it calls the next 3800 Printing 
pupey=cen SETPRT executor specified in the SETPRT path 

able. 


SETPRT Executor I1GG08113 (For the 3800 Printing Subsystem 
only): Executor IGG08113 is entered when forms control buffer 
image processing is required. 


The executor operates as follows: 


¢ It checks for the specified FCB image identifier using FCB 
entries in the DCB exit list. 


e When the address of the FCB image is not passed to the 
caller and the FCB image cannot be located by the DCB exit 
list, the FCB image is obtained from the SYS]1.IMAGELIB data 
set using the LOAD macro. 


e It loads the specified FCB image into the 3800 Printing 
Subsystem. 


@ If FCR image verification is requested, IGG08113 formats and 
prints on the 3800 Printing Subsystem a map of the specified 
FCB image. A message, asking for visual verification, is 
sent to the operator. 


e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGG08115. Otherwise, it calls the next 3800 Printing 

, oubeyecem SETPRT executor specified in the SETPRT path 
a 


°e If an error is detected, it calls executor IGG08115. 
Otherwise, it calls the next 3800 Printing Subsystem 
executor specified in the SETPRT path table. 


SETPRT Executor I6G08114 (For the 3800 Printing Subsystem 

only): Executor IGG08114 is entered when the UCB extension 
indicates that the 3800 Printing Subsystem has the 
burster-trimmer-stacker feature installed, or when forms overlay 
processing is requested. 


The executor operates as follows: 


e It verifies that the paper is positioned properly, and 
informs the operator if paper repositioning is required. 


@ then the FLASH parameter is used, it requests the operator 
to install the requested forms overlay negative. 


e It passes control to executor IGG08115. 


SETPRT Executor 16608115 (For the 3800 Printing Subsystem 
only): Executor IGG08115 is the last module executed for 3800 
Printing Subsystem SETPRT processing. 


The executor operates as follows: 


@ If no errors were detected by previous 3800 Printing 
Subsystem SETPRT executors, IGG08115 initializes the 3800 
Printing Subsystem printer with: the starting copy number, 
the total copies to be printed, and the copies to contain a 
forms overlay image. 


@ It resets the translate table index in the 3800 Printing 
Subsystem to the first translate table loaded. 


e It restores the caller's control blocks as required, deletes 
any loaded modules, and frees previously obtained virtual 
storage loaded or acquired by or for SETPRT. 


@ It exits to the issuer of the SVC 8l. 
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SETPRT Executor I1GG08116: Executor IGG08116 is the error 
message processing routine and is called by the other 3800 
Printing Subsystem SETPRT executors when an error is detected. 


The executor operates as follows: 


It checks the return code and, if an I/0 error is indicated, 
it retrieves the opcode of the failing CCW and stores it 
into byte 0 of the reason code. 


It uses the message parameter list passed by the caller in 
the SETPRT work area, and formats the corresponding message 
in a work area buffer. 


If the message suppression bit in the SETPRT parameter list 
is off, it will do the following: 


1. If a SYSOUT error or a previous I/0 error is indicated, 
a WTO to the programmer is issued. 


2. For all other messages, except for a BURST request 
error, an initialize printer CCW is issued to ensure a 
standard setup, and the error message is created on the 
3800 Printing Subsystem. For a BURST request error, the 
setup is left unchanged, and the message is written with 
the current setup for informational purposes. 


3. If a paper jam or cancel key condition is detected, the 
corresponding message is formatted in the work area 
buffer, and the return and reason codes are updated. 
Because the printer is in a not-ready state, no message 
is written to the 3800 Printing Subsystem. 


If a message feedback area is provided by the user program, 
the message text is copied from the work area buffer into 
the user-specified area. 


It returns to the calling program through a BR 14 
instruction. 


SETPRT Executor 16608117: Executor IGG08117 is entered when the 
DCB indicates that SYSOUT processing is requested. 


The executor operates as follows: 
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It copies the user's SETPRT parameter list into the key 5 


storage in the work area. 


It uses the GETMAIN macro instruction to obtain two key 5 
work areas for SYSOUT processing. 


—- A work area for subsystem interface control blocks, JFCB 
and JFCBE control blocks, and for information saved to 
ose e with the system work area (SWA) manager 
routines. 


= A parameter list for spool file allocation routine. 


It calls the SWA manager to read a copy of the JFCB into the 
work area. 


If a JFCBE exists, it calls the SWA manager to read a copy 
of the JFCBE into the work area. 


It issues an ENQ macro (CRET-HAVE) on the TIOT. This will 


serialize SETPRT processing with any concurrent open, close, 
allocation, or unallocation processing against the data set. 


It checks DSABOPCT in the DSAB to ensure that only one DCB 
is open for the data set. 


It calls the CLOSE subsystem interface to notify JES that a 
data set segment is finished. 
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It updates local copies of the JFCB and JFCBE according to 
information in the SETPRT parameter list. 


It builds the spool file allocation parameter list and calls 
the scheduler spool file allocation routine CIEFABGSF). 

This will provide JES with new setup requirements, segment 
the data set, and update the JFCB and JFCBE in the SWA. 


It calls the OPEN subsystem interface to notify JES that a 
new data set segment is to be created. 


The executor frees up the SETPRT resources before returning 
to caller as follows: 


—- It issues a DEQ macro for the TIOT. 
- It deletes the message CSECT CIGGMSGO1). 
—- It restores the IOB. 
- [It saves return and reason codes in the SVRB. 
- It issues the FREEMAIN macro to: 
— Free the user key SETPRT work area 
— Free the spool file allocation parameter list area 
— Free the SYSOUT work area 
— Free the key 5 SETPRT work area 


It places the return and reason codes in registers 15 and 0, 
and returns to the caller. 


If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then cleans up any existing 
resources before returning to the caller. 


IMGLIB SVC Routine IGCOO1OE: The IMGLIB routine IGCOOLOE builds 
a skeleton DCB and DEB for the SYS1.IMAGELIB data set or deletes 
the DCB and DEB for the SYS1.IMAGELIB data set, depending on the 
parameter passed to it in register 1. The routine is entered 
from the SVC 105 instruction. 


The. INGLIB macro is issued by OPEN executors and by SETPRT 
foe and can be issued by users. The routine operates as 
ollows: 


It issues an ESTAE macro instruction to establish a TRR, 
IGCTOICE, to intercept abnormal terminations. 


It makes a test to determine whether the control blocks for 
IMAGELIB need to be built or deleted. If register 1 
contains 0's, a DCB and DEB are built. 


It uses a GETMAIN macro instruction to obtain a work area 
and then uses a LOCATE macro instruction to determine where 
the IMAGELIB volume is residing. 


It takes the address of the UCB table from the CVT and 
searches for the corresponding UCB. 


It uses the OBTAIN macro instruction to read in the format-l 
DSCB and uses the information read and the UCB address to 
construct a skeleton DCB and DEB for the SYS1.IMAGELIB 
volume. The format-1 DSCB describes up to three extents. 

The SYS1.IMAGELIB data set can reside on up to 16 extents on 
a permanently resident volume. 


If there are more than three extents on SYS1.IMAGELIB, the 
format-3 DSCB seek address is obtained from the format-l 
DSCB. It uses the OBTAIN macro to read in the format-3 DSCB 
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and uses the information read and the UCB address to 
construct additional DEB extent descriptions. 


$ OVERY ROUTINES 


Task recovery routines are designed to minimize overhead in the 
execution of the following SVC routines. 


SVC 18 BLDL or FIND 
STOW 


SVC 24 DEVTYPE 
SVC 25 Track Balance, Track Overflow Erase 
SVC 68 ad li 


SVC 81 SETPRT 
SVC 105 IMGLIB 


Explicit validity checking is not done in SVC routines. 
Instead, the following precautions are taken to ensure system 
integrity: 


e Perform all read and write access to user-owned storage in 
the key of the caller. 


¢ Issue an EXCP macro instruction on caller-owned control 
blocks in the key of the caller. 


@ Issue a SYNCH macro instruction to reach processing routines 
whose addresses are obtained from the caller's DCB. 


SVC routines do not use storage that can be altered by a problem 
program for sensitive data that specifies the location of 
protected control blocks or the location to which control will 
be passed. Examples are register save areas and XCTL lists. 


A program check occurs when a user error or a deliberate action 
threatens to impair system integrity. To avoid the situation in 
which the user would have to relate a program check in an 
unfamiliar system routine with an error in a problem program, 
each SVC routine has a task recovery routine on its RB level. 

On entry, each SVC routine issues an ESTAE macro instruction to 
establish the task recovery routine that will intercept abnormal 
terminations. 


When a program check occurs, the task recovery routine is given 

control by RTM and performs explicit validity checking on the 

input to the SVC routine to determine if a user input error 

eccurred. The task recovery routine can thus provide the caller 

ae pn Stor description in terms of the caller's input to the 
routine. 


Alternatively, the task recovery routine can determine that the 
abend was not caused by a user error, but was the result of an 
environmental situation or a system error. In the latter case, 
the error descriptive information can be directed to system data 
sets, rather than to the problem program user.. 


Task Recovery Routine IGCT0018 (SVC 18, BLDL or FIND): Module 
IGCT0018 handles abends arising from the issuance of an SVC 18. 


It operates as follows: 

e It analyzes the type of error and either passes it to the 
abend routine unchanged or changes it to its own abend and 
passes it on, or it uses a RETRY routine to change it into a 
user error abend code. 

e If a system error is detected, this routine writes a record 
to SYS1.LOGREC and, if no lower level recovery routine has 
done so, takes a dump to SYS].DUMP. 


i) It cleans up any resources that BLDL acquired. 
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Task Recovery Routine Module IGCT0021 (SVC 21, STOW): Module 
bee ean lla abnormal terminations that result from issuing 
a ° 


The module operates as follows: 


e It determines whether user input or system error caused the 
termination. 


@ +i routes information about the abend to the appropriate 
place. 


@ For a user input error, it sends a dump of virtual storage 
to the SYSABEND or the SYSUDUMP file. 


e For a system error, it notifies the problem programmer via a 
WTP message and a system completion code that an error 
occurred that terminated the task. 


@ The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1].LOGREC. 


® It performs any necessary cleanup. 


e It records its actions when an error is detected and 
analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCTOO02D (SVC 24, DEVTYPE): Module 
IGCT002D analyzes abnormal terminations that occur as a result 
of issuing the DEVTYPE SVC. 


The module operates as follows: 


@ It determines whether user input or system error caused the 
termination. 


e 7 routes information about the abend to the appropriate 
place. 


e For a user input error, it sends a dump of virtual storage 
to the SYSABEND or the SYSUDUMP file. 


® For a system error, it notifies the problem programmer via a 
WTP message and a system completion code that an error 
occurred that terminated the task. 


@ The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1.LOGREC. 


e It performs any necessary cleanup. 


e It records its actions when an error is detected and 
analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCTOO2E (SGV 25, Track Balance, Track 

Overflow Erase): Module IGCTOO2E analyzes abnormal terminations 

Shy occur as a result of issuing SVC 25. The module operates as 
ollows: 


e It determines whether user input or system error caused the 
termination. 


e 7 routes information about the abend to the appropriate 
place. 


e For a user input error, it sends a dump of virtual storage 
to the SYSABEND or the SYSUDUMP file. 


e For a system error, it notifies the problem programmer via a 


WTP message and a system completion code that an error 
occurred that terminated the task. 
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The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1.LOGREC. 


It performs any necessary cleanup. 
It records its actions when an error is detected and 


analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCTOO6H (SVC 68, SYNADAF/SYNADRLS): 
Module IGCTO0O6H determines the type of error that occurred 
during a SYNADAF or SYNADRLS SVC processing. 


The module operates as follows: 
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It requests a retry if SYNADAF attempts to access a control 
block at an invalid or a fetch-protected location. 


All other error conditions are percolated after the SYNADAF 
Save/message area is freed. If this routine detects a 
system error, it issues an SDUMP before freeing the area. 


It consists of the following subroutines: 


Environment Error 


If entered from SYNADAF, it goes to the cleanup routine 
for normal processing. 


Otherwise, it tests for an error during FREEMAIN macro 
instruction processing in SYNADRLS. 


If not, the routine next tests for a user error. 


If the error occurred during FREEMAIN processing, it 
tests for an invalid FREEMAIN. 


If so, a SETRP macro instruction is issued to effect a 
retry. 


The retry routine restores register 13 in the SVRB to 
the address of the attempted FREEMAIN area and returns 
to the user with return code 8 in register 0. 


User Error 


Entered if (1) a program check occurred at the SYNADAF 
level and no subordinate ESTAE macro instructions were 
issued or (2) the environment error routine test 
indicated no FREEMAIN error. 


It tests for a protection exception, request for an 
invalid page, or segment exception. 


If so, it tests to determine if the retry address 
indicates that the control block address supplied by the 
user is invalid. If so, abend is invoked. 


Otherwise, the recovery routine attempts to continue 
SYNADAF processing. If the retry register is not set to 
zeros, the retry is performed by zeroing the retry 
register and issuing a SETRP macro instruction to retry 
at the address previously in the retry register. 


If any of the user routine tests fail, the error is 
treated as a SYNADAF failure, it is assumed to be a 
system error, and an SDUMP is invoked. 

SDUMP 


Functions performed are the same as for the user 
routine, with the following exceptions: 
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1. The abend code for the SDUMP header is taken from 
SDWACMPC. 


2. The following additional information is logged: 
#, CODE=XXX,RC=NN. ® 


3. The WTP message states, "IEC906I POSSIBLE SYSTEM 
ERROR DETECTED BY SYNADAF. SVC DUMP TRIED, RC=NN.® 


4. The abend code is not modified. 
Cleanup 


Records the following information in the LOGREC variable 
area: FLAG, RETRY, EP, USER15, USERO, and USER1. 


SDHAURAL is inspected to avoid overlaying information 
already in the variable area, and is updated. 


It deletes the message CSECT, if loaded, and frees the 
Save/message area. 


Before issuing the FREEMAIN macro instruction, it 
restores user register 13 from the HSA word of the save 
area being freed. 

It then percolates the abend. 


Task Recovery Routine IGCTO0069 (SVC 69, BSP): Module IGCT0069 
eee ee terminations that occur as a result of issuing 
e e 


The module operates as follows: 


e It determines whether user input or system error caused the 
termination. 


° It routes information about the abend to the appropriate 
place. 


e For a user input error it sends a dump of virtual storage to 
the SYSABEND or the SYSUDUMP file. 


e For a system error, it notifies the problem programmer via a 
WTP message and a system completion code that an error 
occurred that terminated the task. 


@ The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1.LOGREC. 


e It performs any necessary cleanup. 

e It records its actions when an error is detected and 
analyzed ona lower level, or when a machine check occurred 
and has been processed by the machine check handler. 

Task Recovery Routine IGCT1081 (SVC 81, SETPRT): Module 

IGCT1081 receives control when the RIM Crecovery termination 

paneger detects an abnormal termination during operation of SVC 

The module operates as follows: | 

@ It issues an IGGSTART macro instruction to determine what 
type of processing should be done and to give control for 
error analysis to the appropriate routine. 

e It contains the following routines: 

Resource Cleanup Routine 


Releases or restores resources acquired or altered by 
the SETPRT routines. 
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Establishes a second-level ESTAE in case a program check 
occurs during cleanup. 


Exit Routine 
Determines the correct way to exit from this module. 


1. Percolate: If entered for resources cleanup, to 
take an SDUMP, or detection of a system error. 


2. Retry to abend: If an invalid user control block 
was found. 


Uses the SETRP macro instruction to exit. 
User Control Block Error Analysis Routine 
Analyzes user control blocks, using the supervisor 
validity check routine and the DEBCHK routine. Issues a 
GETMAIN macro instruction for a GTF buffer for tracing 
control blocks. 
If an invalid control block is detected, gives control 
to the GTF routine; otherwise, a system error is 
assumed. 
SDUMP Routine 
Issues an SDUMP SVC. 


Builds a WTP (write-to-programmer) message if it 
determines that a system error occurred. 


GTRACE Routine 
Moves selected user control blocks to the GTF buffer. 
Issues a GTRACE macro instruction. 
Frees the GTRACE buffer. 
Write-to-Programmer Routine 
Builds a WIP message, if requested. 
Issues a WTP macro instruction. 
Retry Routine 
Issues an ESTAE 0 (to disestablish the first level 
ESTAE), restores the user's registers, and issues an 
abend macro instruction. 
Second-Level ESTAE Return Routine 
Provides a return address for the second-level ESTAE. 
Issues an ESTAE 0 to disestablish the ESTAE issued by 
the cleanup routine and then returns to the cleanup 
routine. 
e This module also has a second-level ESTAE, which is entered 
if a program check occurs in the first-level ESTAE or if a 
CALL RTM is issued. 
For program checks, it issues a SETRP macro instruction to 
retry back to the second-level ESTAE return routine in the 
first level ESTAE. For a CALL RTM, it takes a system dump, 


issues a WIP macro instruction, and percolates to the 
next~level ESTAE. 
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Task Recovery Routine IGCTO10OE (SVC 105, IMGLIB): Module 
IGCTOLOE determines the type of error that occurred during, or 
that is related to, the IMGLIB SVC. 


The module operates as follows: 


e It determines if the error type is environmental, user, or 
system. 


é It decides whether to return to the user, with a completion 
code, or to continue the abend. 


GTRACE Record Format Module AMDUSRFE: Module AMDUSRFE formats 
all BSAM, QSAM, BPAM, and BDAM trace records created by the 
GTRACE macro instruction and causes them to be printed by the 
EDIT function of the AMDPRDMP service aid. It receives control 
from the EDIT function and can be used by both ABDUMP/SNAP and 
EDIT to format the user trace records. 


The module operates as follows: 


e When the module receives control, register 1 contains the 
address of a parameter list. It uses the parameter list to 
find the record to be processed, determine how to process 
it, and decide where to put the processed record. 


e It saves the registers in the save area provided by EDIT. 


e It moves the generalized block heading, "BSAM/QSAM/ BPAM/BDAM 
TRACE RECORD DDNAME XXXXXXXX ABEND CODE XXX RETURN CODE XX 
Le HH.MM.SS.HT® into the output buffer area provided by 


6 It returns to EDIT with a return code of 0, which requests 
EDIT to print the output buffer area, clear the output 
buffer area, and return to the format module. 


e The block heading data is derived as follows: 


DDNAME and RETURN CODE are taken from the data portion 
of the input trace record. The RETURN CODE is converted 
from binary code into printable form. 


ABEND CODE is the translation of EID CEVENT ID) from a 
2-byte code into a 3-byte completion code. 


It checks the GTF option word (byte 4, bit 7) to 
determine if the TIME field is present. If the bit is 
off, the TIME field in the block heading is left blank. 
TIME is the local time that the record was put into the 
trace buffer. It is taken from the TIMESTAMP field and 
is converted into printable form. 


e It provides a record heading, followed by data lines, for 
each type of logical record traced. 


@ It uses the ID of the traced record to determine what 
logical record is in the input buffer and then moves in the 
appropriate record heading. For example, if the ID 
indicates a DCB record (ID=130), the record heading moved 
yore yee output buffer is "DATA CONTROL BLOCK AT LOCATION 


¢ It again passes control to EDIT with a return code of 0. 

e Upon return from EDIT, it sets up the data lines to be 
printed. Each line is moved into a work area for unpacking 
and translation into printable format. 


e It moves the translated data into the output buffer in sets 
of 8 bytes, followed by 2 blank bytes. 


@ It tests for an end of data condition as the buffer is being 
filled. 
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When the end-of-data is reached, it restores the registers 
and exits to EDIT with a return code of 4, which requests 
EDIT to print the contents of the output buffer and obtain 
the next input trace record. 


If it is not an end of data, it passes control to EDIT with 
a return code of 0 to cause the output buffer to be printed 
and control returned to the formatting module. This 
continues until all records in the input area are printed. 
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ROG ORGANIZATION AND FLOW OF CONTROL 


DIAGRAM A: SEQUENTIAL ACCESS METHODS—OVERVIEW 





QSAM BSAM BPAM 
GET 
PUT 
PUTX READ READ 











RELSE Get and Put Routines WRITE a <n WRITE 
TRUNC See Olagrem 8 

End-of-Block Routines 

Figures 7,9 & 12 










Synchronizing-and-Error- 
Processing Routines 
See Figures 13, 14 


Check Routines 
CHECK ae See Diegram C and Figure 19 <i CHECK 






FREEBUF Bufter-Pool Management 


Routines GETBUF 


Buffer-Pool Management 
BUILDRCD ae. Routines 





BSAM Routines 
See Figure 22 


BSAM Contro! Routine 



































See Figure 20 
CNTRL ‘ 
QSAM Control Routines 
SETPRT 
COMMON ACCESS METHOD ROUTINES 
Open and Close Executors Buffer-Pool Management Routines Appendages — 
1/0 

SAM Open Executors Interruption 

See Diagram D and Figures 24, 25 Buffer-Pool Management {via QSAM and BSAM 
OPEN ae BUILD Eo Routines Supervisor Appendages 

: Craven aveoinn: is issuad FREEBUF Seo Figure 15 
soo Diagram K. see Tt FREEPOOL 
. GETBUF 
GETPOOL 

SAM Close Executors 

See Figure 27 
CLOSE 


if CLOSE macro instruction is issued 
for a SYSIN or SYSOUT data set, 
see Diagram L. 
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PUT 
PUTX 
TRUNC Cop 
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D_ PUT ROU $ 


The GET routines prepare the next record for the 
program from a block of data obtained from an 
input channel program. The RELSE routines cause 
the present buffer to be scheduled for refilling 

by setting an end-of-block condition. 


List A can be used to setect the sppropriate module 
selector table for the GET routines. 


Ftow of contral information for QSAM routines 
is shown in Diagram F. 


If processing is for SYSIN or SYSOUT data sets, 
SAM-SI routines are required. See Diagram M. 


Contral blocks used in QSAM are shown in 
the “Diagnostic Aids” section of this manual. See 
Figure 35, OSAM Contro! Blocks. 





The PUT routines accept records from the program 
and assembte them into a block of data for an out: 
put channel program. A PUTX routine accepts 

an output record from an input date set. 


The TRUNC routines cause the present buffer to 
be scheduled for emptying. 


List A can be used to select the appropriste 
module setector table for the Put routines. 


Flow of contro! information for QSAM routines 
is shown in Diagram F. 

If processing is for SYSIN or SYSOUT data sets, 
SAM-SI routines ere required. See Diagram M. 


Control blocks used in QSAM are shown in the 
“Diagnostic Aids” section of this manual. See 
Figure 35, QSAM Contro! Blocks. 
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List A 


GET/ Module Selector 


Buffer Technique PUT information 


Simpte Buffering — 
Buffers are per- 
manently associated 
with one DCB 


Update Mode — 
Uses simple buf- 
fering but shares 
the buffer used by Figure 3 
the update mode Figure § 
GET/PUTX routine 
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IAG C:_ BSAN/BPAM READ/WRITE AND CHECK ROUTINES 


READ/WRITE C=) AREAD or WRITE routine completes some of the entrias in the channel 
Program from parameters in the data event contro! block (DECB). 


The READ/WRITE modules are listed in Figure (6. 


For flow of contro! information for BSAM/BPAM routines, see Figure 20 end 


Diegram G. 


If processing is for SYSIN or SYSOUT data sets, SAM-SI routines ere 
required. See Diagram M. 


Contro! blocks used in BSAM are shown in the “Diagnostic Aids” section. 
See Figure 36,8SAM Control Blocks. 





The DECB is examined by a CHECK routine to determine the status of 
the channel program. 


The CHECK modules are listed in Figure 17. 


For flow of control information for BSAM/BPAM routines, see Figure 20 end 
Diagram G. i. 


If processing is for SYSIN or SYSOUT data sets, SAM-SI routines are’ 
required. See Diagram M. 


Control blocks used in BSAM are shown in the ‘Diagnostic Aids’ section. 
See Figure 36, BSAM Contro! Blocks 
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DIAG D:_ SEQUENTIAL ACCESS METHOD OPEN EXECUTORS 


OPEN GS] (OPEN Routines (@) 


One of the functions performed by the OPEN 
routines is the merging of control block information. 


During the merge process, OPEN uses the OSORG 
and MACAF fields to determine the type of OCB 
being opened. 


OPEN then places entries in the WTG table for those 
access method executors which sre required to 
process the DCB. 


if the OPEN macro instruction is issued for a 
SYSIN or SYSOUT data set, job entry subsystem 
(JES) compatibility interface executors ere 
required. See Diagram K. 





SAM Open Executors 


STAGE 1 STAGE 2 STAGE 3 


These executors validity check These executors construct These executors identify and 

user-specified parameters, construct input/output blocks (108s) load the modules needed to 

data extent blocks (DEBs) and and associated channel programs. perform the processing 

buffer pools and issue a DEBCHK described by the OCB. 

(TYPE=AOD) to maintain the Stage 2 Executors are described 

DEB table. under “‘Sequential Access Method Stage 3 Executors are described 
Executors.” See Figure 23. under ‘Sequential Access 

Stage 1 Executors are described Method Executors.”’ 

under “Sequential Access See Figure 24. 

Method Executors.’’ See Figure 22. 


@ Open routines are described in OPEN/CLOSE/EOV Logic. For information on the WIG and XCTLtables, see the 
“Access Method Determination’ section of the manual. 


Diagram E shows the flow of contro! among the three stages of OPEN Executors. 
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DIAGRAM E: STAGE 1=—“SAM FLOW OF CONTROL FOR OPEN EXECUTORS 
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Buffer Default 
See Figure 26 
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JFCB Module Data Set UCS Image and Loed 
1GGO1S9F | 1GGO197F 
a SYSIN/SYS- Forms 
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cice FCB Image 
Verification 
J SYSIN/SYS- @ 
OUT Open JES 
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K OUT Build © 
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G 3 GE 2S LOW O ONTRO OR OPEN E UTORS 
1 2 3 4 6 
| 1GGOtsIM | 
; 
(write-toad) 
track overflow 









IGGO197L 


IGGOTS9L 


3806/3625 Create-BDAM Create-BDAM rE) 
| (write-load) (write-toad) 
| (GGO19tt | | 1GGO197M | 1GG01970 
Build buffer Read-only 


pools Stage 2 3606/3526 (eel with OMR 
executor or RCE 


O Executor 
selection, see “ 
Figure 23 
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LAG :_ STAGE 3-—SAM FLO CONTROL R_GPEN EXECU 


1 l, 3 4 5 
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(GG01915 
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~ Recor 
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| 
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a O 
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| Processors 
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G ; Qs FLOW OF CONTRO 
GET GET or PUT Routines Synchronizing and Error 
PUT Processing Routines SVC55 EOV Routine © 
PUTX New Buffer Needed @) 
The next 108 is examined ; : 
RELSE User’s SYNAD Routine 
Buffer Ready for to determine status 
TRUNC Scheduting of the channel program 
End-of-Block Routines 
Control returned to ‘Chained channel program 3211 
Processing program Normal channel program (0) Asynchronous Error 
DASD Channel Program (€) Processing Routine 
EXCP 
EXCPVR 
V0 (/O Supervisor 
_ Interruption 










Appendages 








Control received 
from and returned 
to 1/O Supervisor 


PGFIX Exit 
SIO Exit SIO/PAGEFIX 


PCI Exit PCI 


Channet End Exit Channel End 


| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
= 





Abnorma! End 





Abnormal End 
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QSAM_ FLOW OF CONTROL, 


Notes for Diagram F 


A synchronizing-and-error-processing routine receives contro! when another full input buffer is needed or if a new empty 
output buffer is needed. 


An end-of-block routine receives control when an input buffer is empty or an output buffer is full. 
The end-of-block routine attempts to add the present channel program to the last one in the chain of scheduled channel 
programs. If successful, control returns to the processing program. tf unsuccessful, contro! is passed to the 1/0 


supervisor by an EXCP instruction. 


For normal channel-program scheduling, the routine passes control to the 1/O supervisor by an EX CP instruction to 
cause scheduling of the buffer. 


Direct-access processing end-of-block modules attempt to add another IOB to the IOB chain. If that is successful, contro! 
returns to the processing program. If that is not successful, contra! is passed to the EXCP interface, then to the 1/0 


supervisor, by issuing an EX CPVR instruction. 


Depending on the status of the execution, a synchronizing routine may retain contro! (using the WAIT macro instruction), 
return control to the GET or PUT routine, or pass control to the user's SYNAD routine or to the EOV routine. 


Control is passed to the EOV Routine by using an SVC 55 instruction in the event that an end-of-volume or 8 permanent 
error condition is detected. Refer to Figure 35, “"QSAM Contro! Blocks,’’ for a diagram of the relationship of the (OBs to 
the other QSAM control blocks. 


The flow of control is described in Diagram H. 


This routine receives control by being scheduled for execution by abnormal-end appendage IGGO18C3, IGGO1SCU, 
IGGO19FR or IGGO18V6. Control is passed to the processing program through the supervisor. 
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DIAGRAM G: BSAM/BPAM FLOW OF CONTROL 









READ 

WRITE READ or WRITE 
Routines 
CHECK Routines 

CHECK 


1/O Supervisor 


1/0 interruption 


PAGEFIX Exit 


SiO Exit 


PCI Exit 


Channel End Exit 


Abnormal End Exit 
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&) DECB is examined to determine 
status of channel program 








End-of:-Block Routines 


©) Chained channo!l program 
Norma! chennsl program 
DASD Channel Program 


EXcP 
EXCPVR 












EOV Routines 






User’s SYNAD Routine 


i OECB 
L —— {eco 
ena 


3211 


Asynchronous Error Processing Routine 





Appendages 
Control received 
from and returned 
to 1/O Supervisor 


SIO/PAGEF IX 


a ; 
es _ 


Abnormal End 


= CS mE Ga ae see Gale Gee 
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SAM/BP LOW OF CONTROL 


Notes for Diagram G 


A READ or a WRITE routine receives contro! after a READ or WRITE macro instruction is issued by a processing 
program. 


@ 


A READ or WRITE routine partially completes a channel! program using parameters from the data event contro! block 
(DECB), and passes the DECB, together with the Input/Output block (tOB), to an end-of-block routine. 


© 


The end-of-biock routine attempts to add the present channel! program to the last one in the chain of scheduled channe! 
programs. If successful, contro! returns to the processing program. If unsuccessful, contro! is passed to the 1/0 
supervisor by an EXCP instruction. These routines are described in the QSAM portion of the manual. See Figure 7. 


For normal channel program scheduling, the routine passes contro! to the 1/O supervisor by an EX CP instruction to 
cause scheduling of the buffer. The end-of-block routines are described in the QSAM portion of the manual. See Figure 
5. 

Direct-access processing end-of-block modutes attempt to edd another tOB to the [OB chain. If that is successful, contro! 
returns to the processing program. If that is not successful, contro! is passed to the EX CP interface, then to the 1/0 
supervisor, by issuing an EX CPVR instruction. 


A CHECK routine receives contro! from the processing program via a CHECK macro instruction. 


A CHECK routine returns contro! to the processing program if the channel! program executes normally (without errors). 
See Figure 36 BSAM Control Blocks for a diagram of the relationship of the DECB to the other BSAM control blocks. 


The flow of control is described in Diagram |. 


This routine receives control by being scheduled for execution by abnormal-end appendages IGG019C3, |GGO18CU, 
'(GGO19FR or |GGO1SV6. Control is passed to the processing program through the supervisor. 


© 
© 
© 
© 
© 
® 
© 
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DIAGRAM H: QSAM FLOW OF CONTROL WITH EOV ROUTINES 


Synchronizing and Error 
Processing Routines 


Control path (S) for permanent 
error condition with SYNAD 
routine present 


Control path (N) for permanent 


error condition with no SYNAD 
routine present 


User’s SYNAD Routine C) 





Synchronizing and Error 
Processing Routines (A) 


Contro! path (E) for 
end-of-volume condition 





N1 












EOV Routine (SVC 55) 


- . 








N3(EROPT = ACC, SKP) 
S8(EROPT = ACC, SKP) EOV Routine 


N3 $8 
(EROPT = ABE) (EROPT = ABE) 


ABEND Routine 
EOV Routine 


(See Open/Close/EOV Logic) 






EOV Routine (SVC 55) EOV Routine of 1/O Support 


User’s EOV Exit Routine 


| E4 
EOV/New Volume Routine ‘- 


Descriptive information on these routines is located in “Synchronizing and Error Processing Routines.’’ See Figures 11 
and 12. 


See OPEN/CLOSE/EOV Logic. 


The user's SYNAD routine is described in Data Administration Guide. 
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DIAGRAM I: BSAM FLOW OF CONTROL WITH EOV ROUTINES 


CHECK Routine (A) 


routine present 


Control path (N) for permanent 
error condition with no SYNAD 
routine present 


S7a 


SYNAD/Diagnostic Routine 


User’s SYNAD Routine C) 










CHECK Routine (A) 






Control path (€) for EOV Routine (SVC§5) 


end-of-volume condition 


EOV/New Volume Routine 






EOV Routine (SVC 55) 


Alternate path for chained 
channet-program scheduling 
and purged (OBS. 


ABEND Routine 
1FG0551D 


(See Open/Close/EOV 
Logic} 





EOV Routine of 
1/O Support 





User’s EOV Exit Routine 


Descriptive information on the Check routines is located in the ‘Method of Operation’ section under “Basic Sequential 


Access Method Routines.’’ See Figure 17. 


See OPEN/CLOSE/EOV Logic. 


The user's SYNAD routine is described in Data Administration Guide. 
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GRAM J: QSAM OPERATION FEOV_ RO 


End-of-Block Routine 
PUT Routines 











FEOV Routine IGCQO03A 
(SVC 31) 






ABEND Routine 
Synchronizing and Error 
Processing Routine 


EOV Routine of 
1/O Support 


EOV Routine (SVC 55) _ 


EOV/New Volume Routine 


Processing Program 









Tension | eamewone 
ee 
ee 
Ta aasransanmneman 
re 
ees 
na ae 









1,2,3,4,5,6,7,8,9,10,16 
1,2,3,4,8,11,13, 16,10, 12,13,14 


- 4,2,3,4,6,6,7,8, 11,13, 15, 10,12,13,14 
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DIAGRAM _K: OPEN PROCESSING FOR SAM SUBSYSTEM INTERFACE EXECUTORS 


OPEN OPEN Routines @) 


A request for a SYSIN or SYSOUT data set (*, DATA, or 
SYSOUT specified on the DD statement) follows the 
spcoted OCB sequence through the Open routines. 


When a spooted OCB is identified by the Open routines, 
the 10 of the first compatibility interface Open executor 
is placed in the WTG table. 





Stage 1 Executors Stage 3 Executors 


See Figure 22 


IGGO1S9F IGG0199G IGGO199W 


Builds CICB Constructs an OPEN Determines buffer 
list for an ACB requirements 
initializes ACB fields 
Issues an OPEN initializes the request 
Sets defaults in OCB (type J} for the ACB parameter list 


Verifies OCB fields 


OPEN Routines (A) 


The OPEN routines begin processing this request. 
Follow the sequence through the OPEN routines 
as described for spooled ACB. 


See Figure 24 


1GG0198L 


Loads the required 
SAM-S! BSAM/QSAM 
processing routines. 
See Diagram M. 


Updates the OCB 


A OPEN routines are described in OPEN/CLOSE /EOV Logic. For information on the WTG and XCTL tables, see 
the ‘Access Method Determination” section of the manua!. 


The access method contro! block (ACB) and the request parameter list (RPL) are described in Data Areas. 
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TAG :_CLOS OCESSING FOR SAM SUBSYSTEM INTERFACE EXECUTORS 


CLOSE Routines@) 
CLOSE =O 


A request to close a SYSIN or SYSOUT date set follows the 


spooled DCB sequence through the Close routines. 





When a spooted DCB is identified by the CLOSE routines, the 
1D of the compatibility interface CLOSE executor is placed 
in the WTG table. 









IGGO201W CI CLOSE Executor 
(see Figure 25) 


Constructs a CLOSE parameter list for the ACB 
Deletes the Cl processing modules 
Restores OCB fields 

Issues ; CLOSE macro instruction for the ACB 


Transfers contro! to next entry in the WTG teble 


CLOSE Routines @) 


The CLOSE routines process the request. Follow the 
sequence through the CLOSE routines as descri 
for spooled ACB. | 





The CLOSE routines are described in OPEN/CLOSE/EOV Logic. 
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DIAGRA 


GET 

PUT —s 
PUTX 
RELSE 
TRUNC 
CNTRL 


READ 
WRITE CoS 


CHECK 
(output) 
CNTRL 


CHECK 
(input) C= 

















:_ SAM SUBSYSTEM INTERFACE FLOW OF CONTROL FOR SVYSIN/SYSOUT DATA SE 





@) Job Entry Subsystem 
Data Management Routines 





1GGO19DJ SAM-S! QSAM Processing 
Module 









(Described in JES2 Logic) 
GET, PUT, PUTX routines (Figure 1, Figure 4) 






RELSE, TRUNC, CNTRL routines perform 
no operation 





IGGO1I9AQ = QSAM Synchronizing 
Module 


1GGO19AH SAM-SI Error Processing 
Module 









Issues 001 ABEND (SVC 13) if no SYNAD 
routine or if EROPT=ABE (Figure 12) 


issues EOV (SVC 55) at end of data 
(Figure 11) 










(GGO1SDK SAM-S!I BSAM Processing 
Module 


READ/WRITE routines (Figure '6) 


User’s SYNAD Routine 






CHECK routine (fer SYSOUT) (Figure 17) 






(Described in Data Administration Guide) 
CNTRL routine performs no operation 


I1GGO19BB + BSAM CHECK Module 


issues EOV (SVC §5) at end of data | 
(Figure 17) 





Processing program requests translation into GET/PUT for the ACB/RPL that gives contro! to the Job Entry Subsystem. 


Permanent error condition returned by the JES. 


End of data condition returned by the JES 
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DIAGRAM _N: FORCE CLOSE PROCESSING 






IFGORROB O/C/EOV Force Close 
Executor Interface 


ABNORMAL 
CLOSE 








Abnormal condition detected. OCBs must 
be closed. 








SYSIN/SYSOUT data set? 


VES 
















IiGGO20T1 Force CLOSE Executor 





IGGO20FC SAM-SI Force CLOSE 
Executor 





User’s OCB copy not modified: 
SAM/PAM 

Frees logical record area 

Frees buffer poo! 

Frees 1OBs and ICBs and channel! 

program space 
Frees segment work area 
Deletes message CSECT 
: Closes SYS1. IMAGELIB 

Deletes UCS/FCB images 













Locates CICB 






CICB not located 











Issues CLOSE for ACB in CICB 






Frees VS record area 







Deletes processing modules for DCB 






BDAM 
Frees buffers 
Frees unscheduled list 
Frees segment work area 
Frees READX list 


Frees CICB storage 










Returns control to calling routine 






User’s OCB copy modified: 
Attempts normal close 







Error not in OPEN processing: 
Returns.to common close 
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IAG 3: SYNADAF FLOW OF PROCESSING 


IGCOO006H 



















EXCP 
BISAM 
IGCOSO6H 1GCO206H IGCOS06H IGCO306H 
| | (No 108) 
QiISAM 
OCR 
1GCO106H IGCO606H 1GCO406H 

nie Check nit Check SYNADAF input Parameters 

on Other on 3211 

Devices ) 7 | | 
Access * Reg. 
Method vous 0 1 
EXCP 00 _ 108 

IGCO706H IGCO806H BPAM 01 se OCB 
BSAM 02 - DCB 
QSAM 03 - OCB 
BDAM 04 DECB DCB 
BISAM 05 DECB DCB 
QISAM 06 _ DCB 
BTAM 07 _ _ 
QTAM 08 _ — 


09 


*High-order byte, Reg. 15 


All routines can return to user. 
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a ey 


Module 
Name 


AMDUSRFE 
TECBBFB1 
TECQBFG] 
IFGO559C 
IGCTO0018 
IGCT002D 
IGCTOO2ZE 
IGCT0021 
IGCTOO6H 
IGCT0069 
IGCTO1OE 
IGCT1081 
IGCO002A 
1GC0002D 
IGCOOO02ZE 
IGCO006H 
IGCO006I 
IGCOOO8A 
IGCOO1LOE 
IGCOO1LOE 
IGCO106H 
IGCO206H 
IGCO306H 
IGC0406H 
IGCO506H 
IGC0606H 
IGC0706H 
IGCO0806H 
IGC0906H 
IGC018 


IGGOI19AA 
IGGO19AB 
IGGO19AC 
IGGO19AD 
IGGOIL9AE 
IGGO19AF 
IGG019AG 
IGGO19AH 
IGGOIL9AI 
IGGO19AJ 
IGGO19AK 
IGGO19AL 
IGGO019AM 
IGGO19AN 
IGGO19AQ 
IGGO19AR 
IGGO1L9SAV 
IGGO19AX 
IGGO19BA 
IGGO19BB 
IGGO19BD 
IGGO19BE 
IGGO19BH 
IGGO19BI 
IGGO19BK 


Module Type 


GTRACE format appendage 
Build module 


GETPOOL module 


Problem determination 


Task 
Task 
Task 


recovery 
recovery 
recovery 
recovery 
recovery 
recovery 
recovery 
recovery 
module 


DEVTYPE 
Control 
SYNADAF 
Control 


module 
module 
module 
module 


SETPRT routine 
IMGLIB routine 
IMGLIB executor 


SYNADAF 
SYNADAF 
SYNADAF 
SYMADAF 
SYNADAF 
SYNADAF 
SYNADAF 
SYNADAF 
SYNADAF 


module 
module 
module 
module 
module 
module 
module 
module 
module 


routine 
routine 
routine 
routine 
routine 
routine 
routine 
routine 


Resident module 


GET 


module 
module 
module 
module 
module 


Synchronizing module 


GET 


module 


module 
module 
module 
module 
module 
module 
module 
module 
module 


Error-processing module 


T module 


module 
module 
module 
module 
module 


Synchronizing module 
Synchronizing module 
DD Dummy 

Save module 
READ/WRITE module 
CHECK module 


Control 
Control 


module 
module 


READ/WRITE module 
CHECK module 


Control 


module 
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CSECT 
Name 


AMDUSRFE 
IECBBFB1 
TECQBFG] 
IFGO559C 
IGCT0018 
IGCTO02D 
IGCTOO2ZE 
IGCT0021 
IGCTO06H 
IGCT0069 
IGCTOLOE 
IGCT1081 
IGCO002A 
IGC0002D 
IGCOO02E 
IGCO006H 
IGCO006I1 
IGCOO08A 
IGCOO1OE 
ICGOOILOE 
IGCO106H 
IGC0206H 
IGCO306H 
IGCO406H 
IGCO506H 
IGC0606H 
IGC0706H 
IGCO806H 
IGC0906H 
IGCO18 

TECPCNVT 
TECPRLTV 
TECOSCR1 
IGGO19AA 
IGGO19AB 
IGGO1L9AC 
IGGO19AD 
IGGO19AE 
IGGO19AF 
IGGO19AG 
IGG0O19AH 
IGGOL9AI 
IGGO1L9AJ 
IGGO19AK 
IGGOI9AL 
IGGO19AM 
IGGO19AN 
IGGO19AQ 
IGGO19AR 
IGGO1SAV 
IGGO19AX 
IGGOLSBA 
IGGO19BB 
IGGO19BD 
IGGOI9BE 
IGGO19BH 
IGGO19BI 
IGGO1LIBK 


svc 
Entry 


18 


Logic 
Manual 


Reference 


Figure 
Figure 


Figure 


26 
26 


20 


Diagram 0 


Figure 
Figure 


Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Figure 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Figure 
Figure 


Figure 
Figure 
Figure 


Figure . 


Figure 
Figure 
Figure 
Figure 


33 
33 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


2 


ry 


2, Diagram M 


md ft Pod ret EN EN EN EN fet bet beg ae et fe ft 


aa Diagram M 


Module 
Desc. 
(Page) 
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Logic Module 

Module CSECT svc Manual Desc. 
Name Medule Type Name Entry Reference (Page) 
IGGO19BL Control module IGGO19OBL Figure 18 115 
IGGO1OBN GET Update module IGGO1IBN Figure 3 22 
IGGO19BO GET module IGG019B0 Figure 1 13 
IGGO1LOBP PUT module IGGO19BP Figure 6 31 
IGGO19BQ Synchronizing module IGG019BQ Figure ll 64 
IGGO19BR WRITE module IGG019BR Figure 16 100 
IGGO19BS CHECK module IGGO19BS Figure 17 109 
IGGO19BT Channel end appendage IGGO1SBT Figure 13 82 
IGGO1OBU READ module IGGO1LOBU Figure 16 101 
IGGO1OBX SIO/pagefix appendage IGGO19BX Figure 13 76 
IGGOLOBY SI0O/pagefix appendage IGGO1LOBY Figure 13 76 
IGGO19BZ Channel end and abend IGGO19BZ Figure 13 88 

appendage 
IGGO19BO BUILDRCD routine IGGO19B0 Figure 26 150 
IGGO19CA Control module IGGO19CA Figure 14,18 95 
IGGO19CB Control module IGG0O19CB Figure 14,18 96 
IGGO19CC EOB module IGG019CC Figure 5 40 
IGGO19CE EOB module IGGO19CE Figure 5 41 
IGGO19CF EOB module IGGO19CF Figure 5 43 
IGGO19CI Ch-end and ab-end appendage IGG019Cl Figure 13 82 
IGG019CJ Ch-end and ab-end appendage IGGOL9CJ Figure 13 83 
IGGO19CL SIO appendage IGGO19CL Figure 13 72 
IGGO19CT EOB module IGGO19CT Figure 5,9 44 
IGGO19CU Appendage IGGO19CU Figure 13 83 
IGGO19CN EOB module IGGO1ICN Figure 7 50 
IGGO19CX EOB module IGGO019CX Figure 7 51 
IGGO19CY EOB module IGGO19CY Figure 7 52 
IGGO19DA WRITE module IGGO19DA Figure 16 102 
IGGO1ODB WRITE module IGGO19DB Figure 16 102 
IGGO19BDC CHECK module IGGO19DC Figure 17 109 
IGGO19DD WRITE module IGG019DD Figure 16 103 
IGGO19DJ GET module IGGO19DJ Figure 1, Diagram M 33 

PUT module a Figure 4 33 
IGGO19DK READ/WRITE module IGGO19DK Figure 16, Diagram M 109 

CHECK module Figure 17 109 
IGGOI9EI Ch-end and ab-end appendage IGGO1LSEI Figure 13 85 
IGGO19EJ Ch-end and ab-end appendage IGGOLIYES Figure 13 87 
IGGO1OFA Control module IGGO1L9FA Figure 14,18 96 
IGGO19FB GET module IGGO1LOFB Figure ] 16 
IGGO19FD GET module IGGO19FD Figure 1 17 
IGGOLOFF GET module IGGO1LOFF Figure l 18 
IGGO19FG PUT module IGGO19FG Figure 4 35 
IGGO19FJ PUT module IGGOLOFJ Figure 4 36 
IGGO19FK EOB module IGGOLOFK Figure 5 4G 
IGGO19FL PUT module IGGO19FL Figure 4 37 
IGGO19FQ EOB module IGGO19FQ Figure 5 4G 
IGGO19FR Abnormal-end appendage IGGO19FR Figure 13 94 
IGGO19FS Asyne error module IGGO19FS Figure 12 67 
IGGO19FU EOB module IGGO1LOFU Figure 5 46 
IGGO019JD Parallel input module IGGO19JD 19 
IGGO19TC EOB module IGGO19TC Figure 5 46 
IGGO19TV EOB module IGGO1LOTV Figure 9 55 
IGGO19TW EOB module IGGO19OTNH Figure 7 53 
IGGO19T2 EOB module IGG019T2 Figure 9 57 
IGG019V6 Appendage IGG019V6 Figure 13 9G 
IGGO191A Stage 1 OPEN executor IGGOL9IA Figure 22, Diagram E 120 
IGG0191B Stage 1 OPEN executor IGGO1L91B Figure 22, Diagram E 12] 
IGG0191C Stage 1 OPEN executor IGG0191C Figure 22, Diagram E 122 
IGG0191G Stage 2 OPEN executor IGG0191G Figure 23, Diagram E 130 
IGGO191I Stage 1 OPEN executor IGG0191I Figure 22, Diagram E 122 
IGGO191L Stage 2 OPEN executor IGGOLOILL Figure 23, Diagram E 130 
IGGO191M Stage 2 OPEN executor - IGG0191M Figure 23, Diagram E 131 
IGGO19IN Stage 1 OPEN executor IGGO19IN Figure 22, Diagram E 123 
IGG0191Q Stage 2 OPEN executor IGG0191Q Figure 23, Diagram E 131 
IGGO19IR Stage 2 OPEN executor IGG0191R Figure 23, Diagram E 132 
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Module 
Name 


IGGO0191Y 
IGG01910 
IGG01911 
IGG01913 
IGG01915 
IGG01916 
1GG0193B 
1GG01931 
IGGO196A 
IGGO196B 
IGG01961 
IGG0196K 
IGG0196Q 
IGG0196S 
IGG0197L 
IGG0197M 
IGG0197N 
IGG0197P 
IGG0197Q 
IGG0197V 
IGG0198L 
IGG0199F 
1GG0199G 
IGGO199L 
IGGO199W 
IGGO20FC 
IGGO020T1 


IGGO201A 
IGGO201B 
IGGO201P 
IGGO0201R 
IGGO201W 
IGG0201X 
IGGO0201Y 
IGG0201Z 
IGGO21AB 
IGG0210A 
IGG038101 
IGG08102 
IGG08103 
1GG08104 
IGG08105 
1GG08108 
IGG08110 
IGGO08111 


' 16608112 


IGG08113 
IGG08114 
IGG08115 
1GG08116 


IGG08117° 


IGXMSGO1 


IGX00030 — 
IGX00031 — 


IGX00032 





Module Type 


Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
SAM-SI 
SAM/PA 
execut 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 


executor 
executor 
executor 
executor 
executor 
executor 
& 3 OPEN executor 
OPEN executor 
OPEN executor 
OPEN executor 
executor 
executor 
executor 
TS module? 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 


m BD NAD IO AD AD BAO AD DD DO Fe be DO GG et 
© 
“~~ 
mn 
= 


Force Close executor 


M/ DAM €erce CLOSE 
or 

executor 

executor 

executor 

executor 

executor 

executor 

executor 

executor 


STOW module 
STOW module | 


SETPRT 
SETPRT 
SETPRT 


SETPRT 


SETPRT 
SETDEV 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
MSGDIS 
MSGDIS 


routine 
routine 
routine 
routine 
routine 
routine 
executor 
executor 
executor 
executor 
executor 
executor - 
executor 
executor 
P message text 
P module 


SYNCDEV module 


NOTE/P 


OINT module 


CSECT 
Name 
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a 


SVC 
Entry 


IGGO191Y 


IGG01910 
IGG01911 
1IGG01913 


'1GG01915 


1GG01916 


IGG01931 
IGGO196A 
IGGO0196B 
1GG01961 


1G6G60196K 


IGG0196Q 
IGG0196S 
IGG0197L 
IGG0197M 
IGGO197N 
IGGO0197P 
IGG0197Q 
IGG0197V 
IGGO198L 
IGG0199F 
1GG0199G 
IGGO199L 
IGGO199W 
IGGO20FC 
IGGO020T1 


IGGO2ZO1A 
IGGO201B 
IGGO0201P 
IGGO0201R 
IGGO201WN 
IGG0201X 
IGGO201Y 
IGG0201Z 
IGGOZ1AB 
IGGO0210A 
1GG08101 
IGG08102 
IGG038103 


IGG08104- 


IGG08105 
IGG08108 
IGG08110 
IGGO8111 
IGG08112 
IGGO08113 
IGG08114 
IGG08115 
IGG08116 
IGG08117 
IGXMSGO1 
IGX00030 
IGX00031 
IGX00032 


109 
109 
109 


Logic 
Manual 


Reference 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Diagram N 
Diagram N 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 


Diagram 
Diagram 


Diagram 


Diagram 
Diagram 


Diagram 
Diags E, 
Diags E, 
Diagram 
Diags E, 


+ See ACE/TCAM Diagnosis Guide and ACE/TCAM Diagnosis 


Reference. 


TAMMMMmMmMmMmMe in 
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K 
E 
K 


Module 
Desc. 
(Page) 


The modules of OPEN, CLOSE, STOW and SYNADAF are link~edited 
into SYS1.LPALIB during system generation, by macro SCIEC4DI, 


according to the following list. | 
module in the distribution library and in microfiche. 


IGGOLOIA, 


alias for the load module. 


208 MVS/XA SAM Logic 


Each CSECT is a poreterc 
or 
IGG01911, and IGG0201Z, each CSECT name is also an 
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Load module 
IGGOI9IA 


IGG02012Z 
IGCO002A 
IGCO0006H 


16601911 


1GG0193B 


Copyright IBM Corp. 1977,1985 


CSECTsS 


IGGO19IIA, 
1GG0193I, 


IGGO2ZO0I1A, 
IGC0002A, 


IGCOO06H, 
IGCO506H, 


1GG0191C, 
16601911, 


IGGO19BK, 
IGG019T2, 


IGG01915B, 
IGG0196A, 


1GGO201B,- 


IGGO2ZI1AB, 


IGCO106H, 
IGC0606H, 


1GG0191G, 
1GG01913, 


IGGO19BX, 
1GG0193B 


IGGO191I, 
IGG0196B, 


IGG0201X, 
IGG0210A 


IGCO206H, 
IGC0706H, 


1GG0191Q, 
1GG01915, 


IGGOLSBY, 


IGGO191N, 
IGG01961, 


IGGO201Y, 


IGC0306H, 
IGC0806H, 


IGGOIIIR, 
16601916, 


IGGO019BZ, 


IGG0191Y, 


1GG0201Z 


IGCO4G0GH, 
IGC0906H 


IGG01910, 
IGG0196K 


IGGOLITV, 


- Directory 209 
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[OB EXTENSION (USED WITH SAM EXCPVR )-~IGGIOBEX 





Offset 


IOBSEEK+8 
40(X*28') 
40€X*28") 


40(X*28° 
41(X*29! 
44(X*2C! 
45(X* 2D!" 
G6(X'2E* 
48(X'30") 


48(X*30*) 
49CX*31") 
520X*34") 
53(X'35") 
54(X'36') 
48(X*30') 


48(X"30") 


68(X"30') 
50(X*32') 
52(X"34") 
53(X*35") 
53(X*35") 


54(X*36") 


56(0X*38") 
56(X*38") 
56(€X*38*) 
56(X*38°) 
570X*39%) 


ed od Sed Se Se 


S8CX* SA") 


59CX*SB*) 
60CX*3C*) 
62°0X'3E") 


NON = SRE OO AN -WENN UF ONE MWH ONMH We On 


Length 


. 


IOBCCSV 
IOBCCW1 


ITOBCCW10 
IOBCCWI1A 
IOBCCW1F 


TOBCCWIL 
IOBCCW2 


IOBCCW20 
IOBCCW2A 
IOBCCH2F 


IOBCCW2L 
IOBCNT 


IOBCNTCH 
IOBCNTCC 
IOBCNTHH 
IOBCNTR 
IOBCNTKD 
TOBCNTK 
IOBCNTDD 
IOBCCWND 
IOBFRKOV 
IOBLFST 
IOBSECTO 
IOBNINCL 
IOBNMID 
IOBLMID 


IOBLLUST 


Description 


Channel-program area 

First channel command word 
CCCH): 

Command code 

Address 

Flags 

Unused 

Data length 

Second channel command word 
CCCH): 

Command code 

Address 

Flags 

Unused 

Data length 

Count field, in the form 
CCHHRKDD 

CCHHR: a 5-byte argument used by 
SEARCH CCWs 

CC: cylinder value 

HH: track value 

R: record number 

KDD part of the count field 
K: length of the record's key 


area 
DD: length of the record's data 


area ; 

End of the CCW chain 

Track overflow area 

Length of the first segment 
Sector value 

Reserved 

Number of segments in the first 
segment's cylinder 

Number of track capacity middle 
segments 

Data length of track capacity 
middle segments 
Data length of the last 
segment——this is zero if there 
is only one segment. 
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SEQUENTIAL ACCESS METHOD BLOCK-—"IGGSAMB 


The SAMB is used to control the accessing of data sets that 
reside on direct access storage devices. 


Offset 
OCX*0*) 


100€X*64'") 


104(X'68'*) 
108(X*6C*) 
108CX*6C*) 
109¢CX*6D") 
112€X*70*) 
1135¢€X'71") 
114(X"72") 
114(X*72") 
175(X*AF*) 


176CX* BOS) 
177¢CX*B1*) 


178CX*B2*) 


Length 


0 
»--l lil. 


~1l 


ae 


N 


ms) 


— RFK KROK KAM DHD DDDHPADADRDAHABNOADWH® 


11.1. 


- 1l.l 


SAMBXXX 
SAMAXBUF 


~ SAMAXIDA 


SAMINIDA 
SAMINBUF 


SAMPRFIX 
SAMPSUB 
SAMPLENG 


SAMB 
SAMIOB 


SAMICQL 
SAMRQEA 
SAMCNTA 
SAMCCWA 
SAMIDAWA 
SAMPGFXA 


SAMIOBP 
SAMPSTWD 
SAMPSTCD 


SAMSMFCT 
SAMSEGCT 
SAMCCHWC 
SANCCNCT 
SAMOPNID 
SAMOPNIN 
SAMOPNOT 
SAMOPNUP 
SAMOPNTO 
SAMOPNOI 
SAMKEY 
SAMFLAG1 
SAMFOUND 
SAMERROR 
SAMFIX 
SAMFREE 
SAMRST 


SAMPUTX 


SAMBSHIR 


SAMERIGN 
SAMFLAG2 
SAMACT 
SAMSTO 


SAMVRDEV 
SAMSKSVD 


SAMEOE 
SAMSEGMT 


Description 


SAMB prefix 

30 maximum number of buffers 
that can be scheduled per SIO 
a number of IDAWS in 


32 minimum number of IDAWS in 
SAMB 


13 minimum number of buffers 
that may determine SAMB size 
Prefix for SAMB 

Subpool of SAMB 

Length of the SAMB + SAMB prefi> 
Unused 


IOB for use by EXCPVR 
IOB PREFIX 
EBCDIC *SAMB* 
IOB 
Length of ICQE and IOBS 
PTR to RQE 
PTR to next available count arei 
PTR to next available real CCW 
PTR to next available IDAW 
PTR to PGFIX 
entry 
Previously posted I0B 
Post code wor 
Post code 
Remainder of post code word 
SMF count | 
Segment count: 
CCN count for each segment 
Same as SAMCCNC 
Open type indicator 

open for input 
2 open for output 
3 open for update 
4G open for TRK overflow output 
5 open for OUTIN or INOUT 
User key 
Flag byte one 
X'*80" something found 
X*40" dynamic error bit 
X*20" a page fix is needed 
X'10"*:a page free is needed 
X*08* the CHAN PROG has been 
broken 
X'04" this is a PUTX request 
peat this is a BSAM update WRT 
X*01* ignore SAMERROR 


next available 


X*80" a request is active 

X*40' SIO is to ignore this 
request — 

X*20* virtual devic 

X*10" IOBSEEK eoyea in SAMSKSAV 
for VBS LRI update 

X*08* EQE processing has 
occurred 

X*04* Segmenting of a VBS LRI 
record is occurring 





LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Data Areas 21 


Contains Restricted Materials of IBM 
Licensed Materials -—— Property of IBM 


SST Ea a a a I a PEE I A TT I NG I TESTES 


Offset Length Name Description 


eed . SAMRPS X*02* RPS device 
eoeoe eeehL SAMCLRIM X*O1* PAGEFIX appendage issued 
CALLRTM-SIO take ignore exit 


179(X*B3°) SAMFLAG3 
SAMPSTNX X*80* next IOB POST41-UNIT 
exception 
SAMSCHPR X*40'" search previous 
SAMRDSK X*20" read skip needed 
SAMSMF X'10" call SMF for EXCP count 
Aa SAMLRF X*08" device supports ECKD 
L8OCX"BG*) I SAMFLGSV Save area for SAMFLAG3 when 
SAMSEGMT is on 
181CX*B5") 1 SAMOFLGS Flag byte two set by open 
1... .... SAMUPD X*80" Update open 
elec «eee SAMWNCHK X*40* WRT validity check 
~e-k. «ee. SAMTRKO X*20* track overflow 
rere | -. SAMVEQR X'10" V=R region 
eoee Ll... SAMONE X'*08* only one buffer acquired 
eee odee SAMBFTKR X'OG* BFTEK=R option requested 


182(X"B6") 1 SAMFRRFG SAM FRR flags 
1... .... SAMCV X'*80" SAMPGFXS is valid 


oLe- «eee SAMIP ee FRR must process PAGEFIX 
| is 
ookde «ee SAMFFIP X*20°8 free/ fix in process 
ook «eee SAMFRIP X*10" free in process 
ee Lo... SAMFIIP X*08* fix in proces 
cece ebes SAMTOUCH X'04* validity racking buffer 
ceee eobe SAMCPCK X'02" buffer address 
INVALID-CH.PGM Eheck will be 
mapped as channel protection 
check 
183(X*B7*") 1 SAMSPECT Write special count 
184CX*B8*) 1 SAMRTNOF Return offset from appendages 
185(X*B9*) 3 SAMRESV1 Reserved 
l88CX*BC") 4 SAMPFECB ECB for page fix request 
188CX*BC*) 1 SAMPFECC ECB condition code 
189CX*BD') 3. SAMPECBB 
192(X*CO") G SAMODEBA Old DEB address for QSAM VBS LRI 
multivolume update 
196CX*C4G") G SAMFRRPT Address of a 6-word parameter 
| area returned from SETFRR 
200CX*C8&*) 4 SAMREAL a to get real address of 
204CX*CC*) ] SAMSEEKS Dual use seek area 
204CX*CC*) 8 SAMSEEK a ACEER ae 
204(X*CC*) 1 SAMSEEKM SAMSEEK M 
205(X*CD*) 2 SAMSEKBB SAMSEEK BB 
207CX*CF*) 5 SAMCNT SAMCNT CCHHR 
207CX*CF®) 5 SAMCCHHR CCHHR for both 
207CX*CF') G SAMCCHH CCHH for both 
211¢X'D3*) 1 SAMR R field for both 
212€X*DG*) 3 SAMCTKDD SAMCNT KDD 
212(X* D4") 1 SAMCTKEY SAMCNT key 
213¢X*DS5") 2 SAMCTDD SAMCNT DD 
215¢€X*D7*) 1 SAMSECT Sector value for RPS 
216(X*D8*) 8 SAMSKSAV Saved IOBSEEK if SAMSKSVD=O0N 
224CX*EO*) 8 
224(X*EO*) 8 SAMPGFX Space for 10 PFGIX list entries 
304¢€X*130')80 SAMPGFXS Space for 10 PGFIX list entries 
384(0X*180*)120 SAMSAV Work area (compiler) 
504CX*1F8* 4 SAMLRPTR Address of current locate work 
area 
508CX*1FC* 48 SAMLRPRM Space for 3 locate record 
parameter lists 
556CX*22C*)4 SAMCCPTR Address of SAMCCW (follows and 


212 MVS/XA SAM Logic 


contiguous to SAMTIC2) 
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Offset Length 


560(X*230* 94 
564(X* 234504 
568(X*238")4 


5720X*23C° D4 
576(X'240')8 
576(X*240')8 
576(X*240*)1 
5770X*241° 93 
580(X*244')1 
581(°X"245'")1 
582(X"'246')2 
582(X'246')1 
583(X*2467')1 
584(X*248 48 
584(0X"'248")1 
585(0X'249")3 
588CX"246C*)1 
589CX*24D")3 
592(€X*250°)8 
592(X*250'°)8 
592¢€X*250')1 
593(X*251°)3 
596(X*254* 4 
600(X*258')8 
600¢0X'258!)1 
601°0X*259')3 
604(X*25C*)4 


Name 

SAMCTPTR 
SAMIDPTR 
SAMIEPTR 


SAMPROLG 
SAMSS 
SAMSSO 
SAMSSA 
SAMSSF 


SAMSSC 
SAMSECT2 


SAMSTID 

SAMSIDO 
SAMSIDA 
SAMSIDF 


SAMLRCCW 
SAMTIC1 

SAMTIC1O 
SAMTICIA 


SAMTIC2 
SAMTIC20 
SANTICZA 


Description 


Address of SAMCNTS (follows and 
contiguous to SAMCCW) 

Address of SAMIDAW (follows and 
contiguous to SAMCNTS) 

Address of SAMIDAND (follows and 
contiguous to SAMIDAN) 

Reserved 

CHAN PROG prolog 

Set sector CCW 

Command code 

ADDR 


Flags 


Count 
Special sector value 


Search ID CCW 
Command code 

IOBSEEK ADDR 

Flags 


Locate record CCW 
TIC CCW 
Command code 
TIC address 
iller 
TIC CCW 
Command code 


TIC address 
Filler 


SAMCCW is pointed to by SAMCCPTR. 
SAMCCN follows and is contiguous to SAMTIC2. 


—=«6OF Fset 


608(X*260') LL¥8 


Name 
SAMCCN 


Descripticn 


Space for CCWS for up to 
SAMAXBUF buffers 


SAMCNTS is pointed to by SAMCTPTR. | 
SAMCNTS follows and is contiguous to SAMCCW. 


Offset Length 
OCX'0*) MMX8 
ea} 
GCX"G*) 4 


8C(X*8*) MM-1 
x8 


Name 
SAMCNTS 


SAMCCHND 
SAMRELST 


SAMRFLRD 


Description 


Space for up to SAMAXBUFtT1 count 
ields 

End of SAMCCW 

Start of refill channel program 
for update 

ADDR of read data or read CT, 
read data, or read data skip, 
read count, read data 

Space for up to SAMAXBUF count 

fields 


SAMIDAW is pointed to by SAMIDPTR. 
SAMIDAW follows and is contiguous to SAMCNTS. 
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Offset 
OCX*O*) 
OCX*O®) 


Length 
0 
NNX4 


Name 
SAMI DAW 


Description 

Space for SAMINIDA to SAMAXIDA 
IDANS 

IDAWS 





SAMIDAND is pointed to by SAMIEPTR. 
SAMIDAND follows and is contiguous to SAMIDAN. 





Offset 
0CX'0*) 


Length 
0 


Description 


SAMIDAND End of SAMIDAW 





INTERRUPT CONTROL QUEVE ELEMENT~"IGGICQE 





Offset 
0CX*0") 


Hr OAW 


29(X*1D") 
SICX*1F*) 
32(X*20*) 


MESSAGE CSECT—IGGMSG 


Length 


dl ee I 


® @@e¢¢e 


xx MK 


wd NDI IND bt 00 bat et bt et De 


N 


Name 
ICQECB 
ICQIOBAD 
ICQFIRST 
ICQEXND 
ICQENDAD 
ICQFSTQ 
ICQSAVQ 
TCQSAVCT 
ICQSVCTM 
ICQSVCTB 
ICQSVCTC 
ICQSVCTH 


ICQSVCTR 
ICQSAV 


Description 


The ECB pointed to by the IOB 
contained in the SAMB 

Address of the IOB in the SAMB 
Address of the first user IOB 
Address of the last user IOB 
Flag byte: 

EXCPYR processing is needed 
Reserved 

Address of the last user I0B 
Address of first queued I0OB 
Maximum number of ceca on queues 
Current number on que 

Area for EOV to save TCQMAXQ 
Reserved 

Save area for the MBBCCHHR used 
in module IGGO19T2: 

M value 

BB value 

CC value 

HH value 

R value 

Save area for end-of-block 
processing (CEOB 


The message CSECT contains messages for SAM, PAM, and DAM. It 


is divided into two parts. 


The first part is the index; the 


second part contains the message. 





Offset 
Index 


O¢CX*0*) 
2°X#2') 
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Length 


2 
2 


MSGINDLN 
MSGINDOF 


Description 


Length of index 
Offset to message entry for 
first message 
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Offset ; 
Index Length Name Description 
GCX*G*) 2 MSGIND2 Offset to message entry for 
second message 
n(n) 2 MSGINDn Offset to message entry for nth 
message 





There are two forms of the message entry, with variables and 
no-variable. 


Message Entry—Variable 


Offset 

Index Length Name Description 

OCX*0*) 1 MSGOFF Offset to message from beginning 
of entry 

1CX*1*) | MSGLNG Length of message -1 (to allow 
use in execution of a move) 

2°0X'2*) 1 MSGOFF1 Offset to first variable filled 
in by the routine that extracts 
the message and causes it to be 
printed 

3CX*3*) ] MSGOFF2 Offset to second variable 

n(n) l MSGOFFn Offset to nth variable 

n+1(ntl) 1 MSGTXT Message text 


No-variable messages such as those used in SYNADAF 





Offset 

Index Length Name Description 

OCX*O*) 1 MSGLNGF Length of message text 
UWCX*t1*) 1 MSGTXTF Message text 


SETPRT WORK AREA (SPW)--IGGSPW 


The SETPRT work area is used by the SETPRT executors, and is 
located (when the SETPRT executors are in control) at the 
address contained in register 4 (which is in user-key virtual 





storage). 
Offset Length Name Description 
OCX*O0*) ] SPNOPTSA Save area for the opcode byte 
1WCX*1*) l SPNPARM1L Saved reply flags 
2€X*2*) 1 SPWFLG1 Reply flags: 
1... .... SPWYRFCB Verify FCB 
XxXXX XXXX Reserved 
ooee eeeh SPWALIGN Align forms 
3CX*3*) 1 SPHFLAG2 Module entry indicator 
GCX*4*) ] SPNFLAG3 Flags: 


ol... «.e- SPWLDREQ UCS/FCB load required 
week «22+ SPWN1ZORQ Message IEC120 is required 
xX... MXKX Reserved 
5(X*5*) 1... ..-- SPWFLGG Flag byte: 
ll... .-.+. SPWFCBDE FCB image is loaded and must be 
deleted 
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Offset Length 
ian eer 


2 XX XXXX 
6(X°6") ; 


7(X'7¢") : 


Name 
SPWECPAM 


SPWFLG8 

SPWRETRY 
SPHVREND 
SPWNOMOV 
SPWFCBOP 


SPWRTRYC 


Description 


EXCP DCB with access method 
section is present 

Reserved 

Flag byte: 

Retry in progress 

Last verify line is printing 
Do not move requested message 
Fill FCBOP as well as FCBID into 
the UCB. 

Reserved 

Retry counter 





iTOR Prefix, Message Section, and Reply Area~~in User Key 


Offset Length 


8CX'8") 8 
8CX*8*) 4 
8C(X*8*) l 
9CX*98) 3 
12CX'C*) 4 
16(X*10*) 


8 
16CX*10') 64 
800X'50*) - 


80CX*50") 


BlCX*51") 815 


96CX*60") 4 
100€X*64") 


4 
104(X'68") 8 
104(X"68") 8 
4 
4 
4 


108(X*6C!) 
L08(X*6C*) 


Name 
SPWMSGHD 


SPWRPLYA 


SPWMSGLB 
SPWRPLYB 
SPWECBPA 
SPNMSGAR 
SPHMSGTX 
SPWREPLY 


SPWFCBOR 
SPWREPC1 
SPWRPECB 
SPWREPID 


SPWFCBIM 
SPHWUCSIM 
SPHPREFX 
SPNUCSZH 
SPWFCB2H 


Description 


Header section for message area 
Data about the reply area 
Length of the reply area 
Address of the reply area 
Address of the reply ECB 

SPN message area 

Message text 

Operator reply 

Reserved 

Start of operator reply 


Reply ECB for the WTOR 
UCS/FCB ID supplied by the 
operator reply 

Name of the FCB image 
Name of the UCS image . 
First half of name 

Last 4 bytes of UCS name 


Last. 4 bytes of FCB name 


[OB for EXCP Users and OPEN“in User Key 


Offset Length 


Name 
SPWIOB 


Description 


IOB area 


112¢€X*70*) 40 


Information saved from user's IOB 


Offset Length 


152(CX*98") 4 
156CX*9C*) 4 
160CX*AD") 4 


216 MVS/XA SAM Logic 


SPHFLGSV 
SPNTRSV 
SPWECBSV 


Description 


IOB first word save area 
IOBSTART save area 
IOB ECB pointer save area 
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Channel Program Area~~in User Key 














Offset Length Name Description 
168CX*AO!) 8 SPWCCH1 First CCW 
176(X*A8'") 8 | SPNCCH2 Second CCH 
184(X"*BO*) 8 SPNCCN3 Third CCW 
Work Area for Unpacking Line Numbers~in User Key 
Offset Length Name Description 
188CX"B8*) SPNHUNPKA Unpack area 
190CX*BC') 2 Unused bytes 
192(X*BE*) 2 SPHLNENO Used by CONVERT instruction 
General Work Area~in User Key 
offset Length Name Description 
196(X*CO') 4 SPWFFSB Sense bytes 0-3 from the 3800 
Printing Subsystem 
fonn Z200CX'CG") 4 SPNMSGID Message ID for DOM 
204CX'*C8*) 64 SPNUBLDL BLDL parameter list for user 
image library 
208(X*CC') 60 SPHULOAD LOAD parameter list for user 
image library 
BLDL Work Area~—SPti5 
The BLDL work area is used by the SETPRT executors and is 
located (when the SETPRI executors are in control) at the 
pect eee contained in register 8. The BLDL work area is in 
ey 
Offset Length Name Description 
0¢(X*0!) 64 SPNBLDLA BLDL list area 
OCX*O') 4 SPNBLDLC Count and length fields 
GOX'G") 8 SPNDDNAM DD name for SYSOUT request 
SPNBLNAM BLDL name field 
| 7(X*7") SPHFCBQ FCB name qualifier 
SPNUCSQ UCS image name qualifier 
8CX*8!) 4 SPWBLFCB Load module ID for BLDL 
12(X'C*) 52 Reserved 
64CX"G0") 4 SPWNKADR Address of the SETPRT work area 
Cin user key) 
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Message Area for the SETPRT Work Area<Key 5 





Offset 
68OCX"G4') 


760X*4C*) 


176(X*BO* 
180(X*B4' 


Length 
8 


100 
4 


8 


SPWMSGHS 


SPWMLIST 


SPWMSGA 
SPWMTXT 


| SPNMRECB 


SPWIMAGE 


Description 


Header section for message area: 
Error message parameter list for 
IGG08116 

SPW message area 

Message buffer for IGG08116 
Reply ECB for WTOR 

Name of the image requested 





3800 Printing Subsystem Area for the SETPRT Work AreasKey 5 





Offset 


188CX*BC*) 
192C0X*CO®) 


196(X*C4") 


198(X*C6! 
200CX*C85 


204(X*CC*) 
204¢€X'CC*) 


~ 205(CX'* CD") 


208(X*DO*) 


209(X*D1") 


210(X*D2!') 
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Length 

P | 

4 

2 

2 

4 

4 

1 

3 

1 

5 rere @ e 

esr -S Ss 

ee rae 

eo¢ @ (8 | Saeenes 

e@ @ e Pu eae 

e@¢6e@ @ che 

e@ ¢ e ee | 

1 

5 ere esee 

Lees @2eee 

eee lee e@eese 

rare | e.¢6h68thlUm8 

e¢¢¢6¢ @ y eee 

suai tent ros are 

e@¢ @ Lobe 
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Name 
SPNSPRB 
SPWSOADD 


SPWBADDR 
SPWSOLEN 


SPWTWADI 


SPWUCSIT 
SPWADFCB 
SPNLPTR 

SPNTWLNI 


SPHTWLNI 


SPHFLAG1 
SNPT3800 


SPWFCBUA 
SPNENDXL 
SPHEXFLD 
SPNEXNPR 
SPWENDM 

SPNEFCBP 
SPWM128L 
SPHFLAG2 
SPNRVMSG 


SPHVMHD 
SPWVMCH 
SPNBLIOB 


“SPWM163L 
SPNMI64L | 


SPHNSTOR 
SPWNESOI 


SPWFLAG3 
SPNPLCPY 


SPNIMGLD 
SPHOPNPR 
SPWDELRQ 
SPWGRAFO 
SPNGRAF1 
SPWNGRAF2 


Description 


Address of the SVRB extended 
save area 
Address of the SYSOUT work area 
for IGG08117 

Buffer pointer 

Length of the SYSOUT work area 
Reserved 
Address of the translate table 
work area 
UCS image table pointer 

FCB address 

FCB line pointer 
Translate table work area 
subpool number 
Translate table work area length 
Flag byte 1: 
The SETPRT is for a 3800 
Printing Subsystem 

he FCB is in the user area 

End of DCB exit list 

EXCP for FCB load 

EXCP for writing FCB verify 
End of section in message area 
End of FCB verify printout 
Message IEC128D in message area 
Flag byte 2: 
Reissue verify message to 3800 
Printing Subsystem 
Header section in message area 
"Channel is in message area 
Build a dummy IOB : 
Message IECI163A is being issued 
Message IECI164GA is being issued 
SPHN has been stored : 
Not enough space is available to 
open SYS1.IMAGELIB 

Flag byte 3: ; 
The SETPRT parameter list has 
been copied from the user's area 
to the key 5 work area 

Image loaded into storage 
OPEN is processing 
Delete is required 
NCGH 0 has been GCM modified 
WCGM 1 has been GCM modified 
WCGM 2 has been GCM modified 
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Offset Length Name Description 
woes eo eh SPNGRAF3 WCGM 3 has been GCM modified 
211¢(X*D3*") 1 SPNWFLAG4 Flag byte 4: 
1... .... SPWRPERR Operator reply error 
ol... «eee SPHCHKLD EXCP routine to check for 
possible lost data 
~-l. ...- SPWNLFCB No FCB load is required 
-X XXX Reserved 
212CX* DG") Gq SPWHRSNCD Reason code 
212(X"* DG") 1 " SPWRSNO Byte 0 of the reason code 
213(X*D5*") 1 SPWRSN1 Byte 1 of the reason code 
214(X"D6*) 1 SPHRSN2 Byte 2 of the reason code 
215CX* D7") 1 SPNRSN3 = § Byte 3 of the reason code 
216(X*D8&*) 4 SPWRETCD Return code 
216(X*D8*) 1 SPWRETO Byte 0 of the return code 
217(X"*D9*) 1 SPHWRET1 Byte 1 of the return code 
218CX* DA) 1 SWPRET2 Byte 2 of the ee code 
219CX*DBt) 1 SPWRET3 Byte 3 of the return code 
220CX*DC*) G SPWIOBST Address of the TOB  eendsca 
section 
224(X*EO") 2 SPWLNCNT FCB image line counter 
226(X*E2*) 2 SPWFCBIL Length of the FCB image 
228CX"EG*) 4 SPNCAVTA Address of the caller's AVT 
232CX'E8*) 2 SPWNKBTS Work bytes used to test flags 
234(X*EA") 1 SPWI Total number of translate tables 
235CX*EB*) 1. SPWJ Translate table index 
236CX*EC*) 1 SPWK Index of the CGM in the 
translate tables 
237(X*ED*) 1 SPWL Work index 
238(X*EE*) 1 SPWM Index in the CGM record 
239(X*EF*) 1 SPHN Index in the CGM record 
240CX*FO') 2 SPWP Translate table poss ton index 
2 SPNLPISV Saved previous lines lp 
— SG2]0CXKF2*) 1 SPWMAX Number of CGMs installed on the 
printer 
243CX"F3") 1 SPNTCBKY TCB key 
244(X* FG!) G SPHNCGMS Load WCGM data 
SPHIOREC Execute control data 
248(X*FS*) G SPNCGMID Character set IDs 
252CX*FC*) 20 SPHMEXIT(CnFive 4-byte areas that contain 
the SETPRT modules’ exit list 
| addresses 
272(X*110')1 SPHMEIND Index for module exit list 
273CX*lz1")1 SPWERIND Error index for module exit lis‘ 
274CX#112"')1 SPHRXIND Roce oname index for module exi‘ 
is 
275€X*113")1 | SPWAPPOS Available print positions 
276(X*114")1 SPWPLENG ee of the SETPRT parameter 
is 
278€X*116")2 Reserved 
280€X*118')4 SPWADDCB Address of the caller's DCB 
284CX*11C* 4 SPNADDEB Address of the caller's DEB 
288(X!'120* 4 SPWADIOB Address of the IOB prefix 
section 
2920€X*124'" G4 SPWHADUCB Address of the UCB 
296C€X'128')1 SPNCFHIT FCB half-inch counter 
297€X*129')1 SPNCFB FCB current index for verify 
298CX*12A*)1 SPWFCBO FCB options 
1... .... SPNCPYPS COPYP specified 
~-l.. .... SPWPSPDS PSPEED specified 
7 XK XKKX Reserved 
299CX*12B")1 Reserved 
300C€X*12C*)4 SPNTADDR Temporary FCB address 
304(0X'130')12 Reserved 
316¢€X'13C')60 SPWSAVE SETPRT register save area 
376(X*178")72  SPWRSAVE Compiler register save area 
448(0X'1C0')8 SWPFLINU FCB image line number 
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Offset 


Length 


456 (X*1C8* }56 
512¢€X*200')1 


513(X*201')3 
516¢€X*204')1 


517€X*205')3 
520(X*208')20 


Name 
SPWSPP 
SPWUKSN 


SPHUKLTH 


SPWKSSN 
SPNKSLTH 


SPHMODHK 


Description 


Copy of the user SETPRT 
parameter lis 

Subpool number of work area in 
user key 

Length of user key work area 
Subpool number of work area in 
key 5 

Length of key 5 work area 
Compiler work area for autodata 


Error Message Communication Area~User-Provided Area 


The error message feedback area is provided by the caller of 
SETPRT and is pointed to by the SETPRT parameter list field 


CSPPEMSGA). 


Offset 
OCX*0*) 
2(X*2*) 


8(X*8*) 
10CX*A*) 


Length 


2 
2 
2 
2 
2 
x 


Name 


SPWNMCLEN 
SPNSV02 
SPWRSV04 
SPWTXTL 
SPNRSV08 
SPWTXT 


Description 


Total length of area 

Reserved 

Reserved 

Length of text returned 
Reserved 

Formatted text (variable length) 





SVRB Extended Save Area ~Key 0 


The SVRB extended save area is used by the SETPRT ESTAE routine. 





Offset 


O(X"O") 
G(X"4") 


8C(X*8*) 


12¢0X*C*) 
13CX*D*) 


16(X*1 


Length 


el ee eee 


COm NN Dawes © - 


SPRMSG 
SPRIDCBA 


SPREXIT 
SPRREG13 
SPRKEY 
SPRINDIC 
SPRCNTRL 
SPRTRCNS 
SPRUSLIB 
SPRSYSOT 


SPRNIOBS 


SPRBLDLA 
SPRIOBSV 


SPRDCBBG 
SPRGETMN 
SPRELIST 
SPRTRACE 


Description 


Address of the message CSECT 
Address of the image library 
data set's DCB 

Exit prolog 

Save area for register 13 
User key 

Flag byte: 

Control block routine entered 
GETMAIN unsuccessful 
User-specified image library 
SETPRT for SYSOUT data set 
Unused 

Number of IOBs 

Unused 

Address of the BLDL list 
Address of the IOB altered by 
IGCOCOSA 

Beginning address of the DCB 
Address of the GTRACE buffer 
ESTAE list 

GTRACE list 
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3800 Printing Subsystem Translate Table Entry—Key 5 


One Entry of an FCB 


BUFFER POOL CONTROL 


Offset Length Name 
0CX*O0*) 288 SPNTT 
0(X*O0*) 8 SPWTTHDR 
0CX*O*) 4 SPNTTID 
GOX"G!*) 2 

6CX*6*) 2 

8CX'8*) 280 SPNXLAT 
8CX*8*) 256 SPWTRANS 
264(€X*108")24 SPWTRAIL 
264(€X*108")8 SPWTRLI 
272€X*110')16 SPWGRAF (Cn) 


Description 


Translate table, pointed to by 
SPNTWAD1] Cin the SETPRT Work 
Area) 

Translate table header 
Translate table ID 

Reserved 

Length of character arrangement 
table 

Translate table and trailer 

256 byte translate table 
Trailer 

Four 2-byte entries for 
character set identifier and 
loading order 

Four 4G-byte entries for graphic 
character modification module 
names 





Image for a 3800 Printing Subsystem 











Offset Length Name Description 
OCX*0*) l SPWFCBIE FCB byte for 3800 Printing 
Subsystem 
OO.. .... Reserved—set to zeros 
~onn ...- SPWFCBLP tLines~per-inch bits | 
oe || | eer 6 lines per inch 
sasOd. S48 8 lines per inch 
ae DO. vera tvk 10 lines per inch (Model: 3) 
eed. cwices 12 lines per inch 
wee. AANN Channel number 1 to 12, in 
: hexadecimal code — 
BLOCK-IGGBCB 
Offset Length Name Description 
OCX*0!) G BCBBUFPT Address of the first buffer 
Csame as BCBBUFAD below) 
OCX*0') 1 Filler 
1¢X#*l*) 3 BCBBUFAD Address of first buffer 
GCX*G*) 1 BCBFLGS Flag byte 
1... «+--+ BCBLRI Logical record interface presen: 
-l.. ...-. BCBEXTND BUFCB extended area present 
° «XX XKXXX Reserved 
5¢X*5*®) 1 BCBBUFNO Number of buffers 
60X*"6*) 2 BCBBUFSZ Size of each buffer 
BCX*SB*) 4 BCBLRIAR Address of logical record area 
(same as BCBLRIAD below) 
8(X*8!) 1 Filler 
9CX*9*) 3 BCBLRIAD Address of logical record area 
120X*c! & BCBPAD Padding for doubleword alignmen 
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Offset 


Length 


ee 0 @ 


6 : 
ne er 


Name 


BCBNLN 
BCBEXLN 


Description 


Length of normal BCB 

Length of extension (add to 
BCBNLN to get total length if 
BCB is extended) 





Users Logical Record Interface Area for SAM Data Sets 





Offset 


OCX*0*) 
OCX*0°) 


0(X*0") 


8(X*8") 
13¢CX'D*) 
16¢€X*10*) 
16¢€X*10") 
W7(XF11") 
20€X*14") 


22(X'16*) 
20(0X*°14*) 


24(X*18") 
24(X*18") 


SUBSYSTEM CICB-—"IGGCICB 


Offset 
OCX*O*) 


G(X"G") 
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Length 


8 


el 
3 
l 


4 
1 
Lies 


l 


e 
¢ 
e 


ol. 


Moo 


aN NWHE BD W UW ON—MX> « - 


— 00 


e e©@¢¢ @ 
° 


0 Mm KKKXK 


ee & oo fmiie 


Length 
4 


4 


Name Description 
LRILOC LRI location 
LRILGTH Length of LRI area-LRECL+32 
(same as LRILNGTH below) 
LRIFLG1 Flags 
LRIEOD End-of-data reached 
LRICOB COBOL data set 
LRIEOB EOD after first end-of-block 
Reserved 
LRILNGTH Length of LRI Area-—LRECLt+32 
LRIFLAG2 Flags 
LRIRELSE Release issued 
LRISEG Segmenting is in process 
LRINTSPN Nonspanned record 
LRIASSEM Assembling is in process 
; Reserved 
LRIINDEX Index to beginning of data 
LRIPOS Position of record in block 
LRITRKAD Track address of beginning 
record segment 
LRIMBBCC MBBCC of track address (not used 
if DCB is for output) 
LRIRECAD Record address when record to be 
written requires segmentation 
LRINIOB Next IOB address (same as 
LRINXIOB below) 
Filler 
LRINXIOB Next IOB address 
LRICOUNT Count field of number of bytes 
moved 
Filler 
LRICOUNT Count field, full word value, of 
the number of bytes moved when 
extended logical record 
interface (XLRIJis used 
LRIALIGN Floating alignment area 
LRIDATA Data 
Name Description 
‘CINXTIOB Pointer to next IOB; 
initialized to point to itself 
CIECBCD Psuedo ECB; always marked 


poste 
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Offset 


8(X'8*) 
12¢(X'C*) 


20¢€X'14") 


28CX*1C*) 
320X'20") 
88(X'58") 
108(X*6C*) 
116(X"74") 


120(X'78') 
124(X*7C*) 
128CX*80°) 
188CX*BC*) 
L89(CX*BD* ) 


190(X"BE*) 


191CX'*BF*) 
192CX*CO*) 
268(X*10C") 
284(X*11C*) 
304(€X*130'") 


Length 


4 
4 


56 
20 


76 


20 


CIIOB 
CIECBPTR 


CIRESID 


CIDCBPTR 
CIACBD 
CIACBED 
CISYNNAM 
CIREGSAV 


CIREGBC 
CIREGFC 
CIREGS 
CIFLAG1 
CIFLAG2 
CIFMDSOR 
CIFMDEVT 
CIFLAGS 
CIFFSTP 


CIFCLOSE 
CIFRAGM 


CIFVSRI 
CIFVSEOB 
CIFERROR 
CIFPOINT 
CIFCKBB 
CIFLAG4 
CIRPL 
CIRPLEXT 
CIFDBK 
CILWAREA 


Description 


Start of basic IOB section 


Address of pseudo ECB-in 
prefix 


Residual count (CSW); set 
prior to each SYNAD entry 


DCB address 

Data ACB 

ACB extension 

SYNAD executor name 


SAM-SI register save area ( 
used): 


Backward chain pointer (CHS/ 
Foward chain pointer (LSA) 
Registers 14 through 12 
SYNAD error index 

DCB default flags: 

DSORG defaulted in DCB 
DEVTYPE before OPEN 
Control flags: 


PUT LOCATE first pass 
completed 


CLOSE is processing the DC 


woos area obtained for B 


VS record is incomplete 
VBS-format record end-of-b 
SYNAD is processing an err 
Invalid POINT request 
SYNAD entry from IGGO19BB 
Reserved 
Request parameter list CRP 
RPL extension 
RPL feedback area 
Spanned-record work area 

—  BSAM: Size of reco 

area obtained 


= QSAM: RDW save 
location 


a 
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Offset Length Name Description 

308(X*134'") 4 CISEGLEN Spanned-record segment length 

312¢€X*138'*) & CIBLKPTR BSAM spanned-block current 
address 

316¢€X*13C*) 4 CIRAREA Spanned record area address 


3200€X*140*) G CIRECPTR Spanned record pointer: 


~ BSAM: Current location 
in record area 
- QSAM: Spanned segment 


address 
3240X9144") 4 CISAMNA SAM SI work area 
328(X*148") 4 CIWK1 SAM SI work area 
S32°0X*14C*) 4 CIWK2 SAM SI work area 
336(X'150') 1 CISYNRC SYNDAF return code 
337(X*151") 3 CISYNADA SYNDAF subroutine address 
3400€X*154") 1 CIBLDLRC BLDL return code 
3410X"155") 3 CIBLDL BLDL subroutine address 
344(X'158*) 1 CIBSPRC BSP return code 
545(0X"159!*) 3 CIBSP BSP subroutine address 
348(X*15C*) l CIFEOVRC FEOV return code 
349(X*15D*) 3 CIFEOV FEOV subroutine address 
352¢X"160') ] CISTOWRC STOW return code 
353(X"161°) 3 CISTOW STOW subroutine address 


PARAMETER LIST“"IGGPARML 


This DSECT expands the parameter list passed to the open/close 
executors from common open/close. 


Offset Length Name Description 
OCX*0*) 4 PARDCBAD Address of DCB being 
opened/closed (same as PARDCBAB 
below) 
OCX*O0*) 1 PAROPT OPEN/CLOSE options 
1... ..-. PARENLST End of list 





CLOSE Options 





Offset Length Name Description 
ol... ..-.. PARREWND REWIND 
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offset Length Name Description 
.-ll .... PARLEAVE LEAVE 
wel. «eee PARFREE Unallocate during CLOSE 
eel «eee PARRREAD REREAD 
OPEN Options 
Offset Length Name Description 
«ees LL111 PAROUTPT Output 
wees eLlL] PAROUTIN Outin 
_ -l.. PARUPDAT Update 
os ~-e-lLl] PARINOUT Inout 
wees «eek PARRDBCK Readback 
wees evee PARINPUT Input 
1CX*1*) 3 PARDCBAB Address of DCB being open/closed 





PRINTER DEVICE CHARACTERISTICS TABLE-~IGGPDC 


A printer device characteristics table (PDCT) is generated 
during system generation for each 3203-4, 3203-5, 3211, 3262 


Model 5, 


4245, and 4248 printer. 


unit record UCB UCS extension. 


The PDCT is appended to the 





Offset 


OCX*0') 
20X25) 
Q(X *4*) 
CX*6*%) 
CX*7*) 
CX*8") 
CX*9*) 


WO 09 ~I ON 


Length 


oe et et AAD 


Name 


PDCMPLEN 
PDCUCSL 
PDCERPWL 
PDCDCBC 
PDCFCBP 
PDCUCSP 
PDCFLAG1 
PDCUCSIT 
PDCLDPOS 
PDCAUTOP 


PDCPT DEV 
PDCFCBOP 
PDCCLRPT 
PDCLRUCS 
PDCSIGAT 


PDCFLAG2 
PDCAFCBP 


Description 


Maximum print line length 

UCS lengt 

OBR/MDR work area length 

DCB device type code 

FCB prefix id 

UCS prefix id 

Flag byte l 

Device uses UCS image table 
Lost data condition possible 
Hardware positions paper when 
FCB loaded 

Page tracking device 

FCB may contain options 
Clear printer command supported 
Limited function read UCSB 
Signal attention command 
supported 

Flag byte 2—Reserved 
Alternate FCB prefix id 
Reserved 





If UCBUCSE-YES is specified on the IGGPDC macro the following 
mapping is provided for the UCB UCS extension 





Offset 
OCX*0*) 


16(X*10*) 
18€X*12") 


Length 


16 
2 


2 


Name 
PDCUCS 


Description 
UCB UCS extension 


PDCSPGID Synchronization page id 


PDCPDCTO 


Offset to PDCT 
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This DSECT maps against the O/C/EOV work area fields DXCCWl 
The purpose of the DSECT is to give meaningful 
equates to these fields when used by the open and close 


through DXCCW12. 





executors. The comments for each label indicate whether the 
ec is used by the OPEN executors (-0) or the CLOSE executors 
Offset Length Name Description 
368(X*170!*) 8 DXCCWl 
368(X*'170'*) 4 DXBLDL BLDL parameter list -0 
368(X*170*) q SCNGETMA Register save area for QSAM 
3 routines -C 
368(X'170!) 1 DXCCWOP CCN OP code -0 
368(X'170*) 1. SCNSAVCD Erosion determination code 
368(X*170*) l DXUCSUCB UCB UCS options -0 
369(X'171') 3 DXCCWADR Buffer address -0 
369(X*'171') 3 SCNGETMB (Same as SCNGETMA) -C 
3720X*174*) 4 DXBLDLIM Image name for BLDL -0 
372(X*174") 2 DXCCWFLG CCW flags -0 
374(X*176*) 2 DXCCWBYT CCW byte count -0 
376(X*178'*) & DXCCWH2 
376(X*178") G DXIMGNAM Image name -0 
376€X'178*) q SCWRALL Save area for all registers 
408(X*198*) 8 DXCCN6 
G08CX*198!*) 8 DXSAVUCS Area to save UCS name -0 
GI6CX*1A0*) 8 DXCCH8 
G16CX*1A0*) 4 DXIMGDCB naores* of SYS1.IMAGELIB 
4G24CX*1A8*) 8 DXCCNI 
G24CX*1A8*) 8 DXSAVFCB Area to save FCB name -0 
G32(CX*1B0*) $ DXCCW10 
432C0X*1B0'") 16 DXFCBUCS UCS and FCB parameter 
fields -0 
G32CX*1B0*) 8 DXFCBP ye pa FCB parameter 
| ie - 
432(X*1B0*) 1 DXFCBSW1 Switch for FCB parameters 
433¢0X*1B9*) 1 DXABEND Indicates DMABCOND to be 
issued ~-0 
433CX*1B9*) I DXFLAG1 FCB flag byte -0 ; 
G34CX*1BA*) 1 DXSTAGE2 Indicates next executor is 
stage 2 executor -0 
G37CX*1B5'*) 1 DXFCBOPT JFCB FCB options -0 
438CX*1B6*) g DXFCBID FCB image identification -0 
4G42CX* 1BA®* ) 8 DXCCW11 | 
G42CX* 1 BA) 8 DXUCSP Parameter list for UCS -0 
442CX*1BA* ) 1 DXUCSSW1 oaance for UCS parameters 
GG2CX*1BA* ) ] DXABRETC Internal return code for 
problem determination -0 
GG3CX*1BB*) l DXEROPT To save DCBEROPT -0 
G44(CX* 1 BC) 1 DXNABEND Eneseete ABEND in control 
445(0X*1 BD") I DXUCSOPT JFCB UCS options -0 
GG6CX*1BE*®) 4 DXUCSID UCS image identification -0 
450(X*1C2*) 8 DXCCH12 . 
450¢€X*1C2*) 4 SCNXCTLP Supervisor parameter list 


26 MVS/XA SAM Logic 


for XCTL -0/C 
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SAM/PAN/DAM GTRACE BUFFER-~IGGSPD 





Offset 
OCX*O*) 


9(X"9") 
9(X998) 
9X89") 
9(X*9") 


Length 


wit COW ww - 


rN) ws 


SPDBFR 
SPDHDR 
SPDDDNAM 
SPDABCCD 
SPDTRACE 


SPDTRRCD 
SPDRCDHD 
SPDRCDLN 


Description 


SPD buffer input record 
Buffer header 

DD name from TIOT 

ABEND condition code 

Trace record area (variable - 
maximum length is 247 bytes) 
Trace record 

Trace record header 

Trace record length 


i Depends on the length of the block to be traced (maximum 
block length is 28S bytes including the block address, if 


present). 
Offset Length 
lOCX*A*) 1 
L1UCX"B!*) 2 
11CX*B*) 4 
L5CX'F*) 


SPDBLKID 
SPDDATA1 


SPDBLKAD 


SPDDATA2 


Description 


ID of trace record 

Block to be traced (no block 
addresspresent) 

Address of block to be traced 
(not present for block with ID 
less than 127) 

Block to be traced (block 
address present) 





2 Depends on the length of the block to be traced (maximum 
block lal is 245 bytes including the block address, if 
presen 


STOW WORK AREA IGGSTW 


This DSECT maps the work area used by the STOW modules. 


Offset 
OCX*0*) 
GCOX"*G*) 
8CX*8*) 
LOCX*A®) 
I2CX'C®) 
20(X'14*) 


28CX*1C*) 
SICX*1F*) 


320X*20*) 


Length 


4 
4 


2 
2 
38 
8 
3 
1 
1 
6 


Name 
STWPARM 
STWHIGH 


STWOFFLW 
STWOL DNM 
STHNEWNM 
STWTTR 

STWCTTRN 


STWALIAS 
STWDATA 


Description 


Address of user-supplied entry 
name Clower of two for change) 
Address of higher of two 
user-supplied names (change 
only) 

Reserved 

Offset to add, replace, or 
delete location in low block 
Name of entry being deleted 
Name of new entry 

Relative address of member 
Alias bit, number of TTRNs, anc 
length of user data 

This member name is an alias 
User data for entry 
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Flag, Condition, and Switch Bytes 





Offset Length Name Descripticn 


94(X*5E*) 1 STWFLAG] First flag byte bit definitions 
1... .... STWCHNG Change function (used in 
combination with STWADD and 
STWDEL ) 


ole. «ee. STWDEL Delete function 
el. «2. STWREPL Replace function 
oooh «eee STWADD Add function 
oeee Lee. STWDRYRN Dry run being made on directory 
ceee eb. STWFLOW Used to control program flow 
oeee ooh. STWDCBNR Last DCB operation was a WRITE 
Pee. eek Reserved 

O5CX*5F*") 1 STWRTN Return code save area 


Control Blocks for STOW Channel Programs 





Offset Length Name Description 


96(X*60") 4 If already on a doubleword; go 
to the next fullword boundry 





Event Control Biock 





Offset Length Name Descripticn 
LOOCX*64") G ECBRB RB Crequest block) address while 
waiting for event 
100C€X*'64") 1 ECBCC Completion code byte 
1. . ECBWAIT Waiting for completion of event 


ole. «ees ECBPOST Event completed 
-L11 1111 ECBNORM Channel program terminated 
without error 
ol... «.-e-d ECBPERR Channel program terminated with 
Permanent errors or for BTAM 
completed with an I/0 error 
-lL.. ..2. ECBDAEA Channel program terminated 
because a direct access extent 
address was violated 
~l.. .-L11 ECBABEND I/0 abend condition occurred for 
error transient loading task 
el... .2.. ECBINCPT Channel program intercepted 
because of permanent error 
associated with device end for 
previous request; the 
intercepted request can be 
reinitiated. 
.1.. 1... ECBREPRG Request element for channel | 
| program made available after it 
| has been purged 
.. ECBHALT Enable command halted 
11 ECBERPAB Abnormal completion of 
processing because of a critical 
error such as the presence of 
invalid control block fields 
ol... 1111  ECBERPER Error recovery routines entered 
because of direct access error 
are unable to read home address 
of record 0 


gust pus 
e e 
° e 
ua 
e @ 


e e 
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offset Length Name Description 

101¢€X*65*) 3 ECBRBA Request block address (while 
awaiting completion of an event: 

101¢€X'65*) & ECBCCCNT Zeros or remainder of completior 


code (after completion of the 











event) 
Prefix Sections of the IOB 
Offset Length Name Description 
88CX*58*) 8 IOBPREFX Prefix sections 
88CX*58*) 8 IOBQSAMC QSAM/BSAM/BPAM prefix 
88(X*58*) 8 IOBBSAMC Chained scheduling 
88CX*58*) 8 IOBBPAMC 16 bytes 
88CX*58!*) l IOBCFLG1 Flag byte 
| Peer TOBRSVO01 Reserved 
lee. IOBRSVOZ2 Reserved 
ei ebees, 2% IOBRSVO3 Reserved 
ey eer eran IOBRSV04 Reserved 
ooee Le. IOBPTST NOTE or POINT operation in 
process 
~- et... IOBABAPP Error processed once by 
abnormal-end appendage 
eee eel. JOBRSTCH Restart channel 
wees «eek JOBPCI PCI interrupt has occurred 
89CX*59*) 1 IOBRSVO5 Reserved 
90CX*5A*) ] IOBCINOP Offset of last 1/0 command 
for input operation (NOP CCW 
from the ICB origin 
91CX*5B*) 1 IOBCONOP Offset of last 1/0 command 
for output operation (NOP 
CCW) from the ICB origin 
92(X*5C*) 4 IOBCECB Event control block 
96(X*60') 4 IOBCICB Address of first ICB on queu 
100C€X*64!) 4 IOBCNOPA Address of NOP command at en 
of queue 
QSAM BSAM BPAM Prefix 
Offset Length Name Description 
96(X*60") 8 IOBQSAMN QSAM/BSAM/BPAM prefix 
96(X'60") 8 IOBBSAMN Normal scheduling 
96(X'60") 8 IOBBPAMN bytes 
96(X'60") 4G IOBNIOBA Address of next IOB on chain 
96(X*60") 1 IOBNFLG1 Flag byte 
1... «2+. IOBPRTOV PRTOV occurred 
-l.. ..-- JFOBNRITE WRITE operation in process 
ool. «+e JOBREAD READ operation in A eee 
ooekh «oes FOBUPDAT Block is to be updated 
re ee IOBBKSPC IOQB is being used for BSP CTRL 
NOTE/POINT 
ooee obese IFOBSPAN Spanned record 
eeese eohe IOBUPERR iti channel program has beer 
SPil 
eoee ecoekh JFOBFIRST First IOB on chain 
97€X"61") 3 IOBNIOBB oc of the next I0B on the 
ain 
1LO0CX*64") 4G IOBNECB Event control block address 
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Standard Section of the IOB 





Offset 


104(X*68'")8 
104(X'68")1 


105¢€X*69")1 
l.. 


106(X*6A")1 


5 rae 
oe eae 
ae ee 


Length 


Name 


IOBSTDRD 
IOBFLAG1 
IOBDATCH 


IOBCMDCH 


IOBERRTN 
IOBRPSTN 
IOBCYCCK 
IOBFCREX 


IOBIOERR 
IOBUNREL 


IOBSPSVC 


IOBFLAG2 


IOBHALT 


IOBSENSE 


IOBPURGE 
IOBRDHAO 


IOBALTTR 


IOBSKUPD 


IOBSTATO 


IOBPNCH 


IOBSENSO 


IOBSOBO 


IOBSOB1 
IOBSOB2 


Description 


Flag byte 


Data chaining used in channel 
program 


Command chaining used in channel 
program 


Error routine is in control 
Device is to be repositioned 
Cyclic r 


FETCH command retry exit (direct 
access only) 


I/O error has occurred 


I/70 request is unrelated 
(nonsequential ) 


SAM/PAM flag set by SVC if I70 
appendage should not process 
interrupt 


Flag byte 


HALT I/0 issued by SVC PURGE 
routine 


Issue SENSE command after device 
end occurs 


IOB purged-——allow I/0 to quiesce 


Home address to be read-—no seek 
needed 


No test for 
out-of-extent—alternate track 
in use 


Seek address is being 
updated—cylinder end or file 
mask violation has occurred 
Device end status OR-ed with 
channel end status—graphics 
device 

Turned on by QSAM when error 
recovery is to be provided for 
the 2540 Card Punch 

First sense byte 

Bit 0 (device dependent) 

Bit 1 (device dependent) 


Bit 2 (device dependent) 
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Offset Length 


LO7CX'6B*)1 


oe ¢ @ are | 


108¢€X*6C*)4 


108¢(X*6C")1 


109¢€X*'6D"33 


112(€X*70*)1 


113¢0X*71'*)7 


113¢€X*71")3 
116€X*°74*)2 


IOBSOBS 
IOBSOB4 
IOBSOB5 
IOBSOB6 
IOBSOB7 
IOBSNSC9 


IOBSENS1 
TOBS1B0 
IOBS1B1 
TOBS1B2 
IOBS1B3 
IOBS1B4 
IOBS1B5 
TOBS1B6 
IOBS1B7 
IOBECBPT 


IOBECBCC 


TOBECBPB 


IOBFLAGS 
IOBCCC 


TOBICC 


IOBCDC 
IOBACU 
IOBCNC 
IOBMSG 
IOBICL 
IOBLOG 
IOBCSW 


TOBCMDA 
IOBSTBYT 


Description 


Bit 3 (device dependent) 
Bit 4 (device dependent) 
Bit 5 (device dependent) 
Bit 6 (device dependent) 
Bit 7 (device dependent) 


Channel 9 sensed in carriage 
ape 


Second sense byte 


Bit 0 (device dependent) 


Bit 1 Cdevice dependent) 
Bit 2 (device dependent) 
Bit 3 (device dependent) 
Bit 4 (device dependent) 
Bit 5 (device dependent) 
Bit 6 (device dependent) 
Bit 7 Cdevice dependent) 


Address of ECB to be posted upon 
completion of I/0 


Completion code for current I70 
request 


Address of ECB to be posted upon 
completion of I70 


Error routine flag byte 


Channel control check error 
coun 


Interface control check error 
count 


Channel data check error 
Attention/control unit error 
Chain check error 

Message flag 

Incorrect length error 
Log-out flag 


Seven low-order bytes of CSW at 
channel end 


Command address (3890) 
Status bits 32-47 (3890) 
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Offset 


118(X*°76')2 
120(X*78")4 
120¢€X"*78")1 


121¢X*79*°)3 
124(X*7C* 34 


124(X*7C*)1 
Liss 


125(X*7D")3S 


128(X*80* 4 
128¢(X*80")1 
129¢CX*81")D3 
132(X*84")2 


132(X*84")1 


133(X*85")1 


134(0X*86°)2 


Length 


ITOBSTART 
IOBSIOCC 


IOBSTRTB 
TOBDCBPT 


IOBFLAG4 
IOBGDPOL 


IOBRSV38 
IOBRSV39 
TOBRSV40 
TOBRSV41 
IOBRSV42 
IOBRSV43 
TOBRSV44 
IOBDCBPB 


IOBRESTR 
IOBREPOS 
ITOBRSTRB 
TOBINCAM 


IOBCRDCC 


IOBCRILC 


TOBERRCT 


Description 


Last two bytes of IOBCSN 
Address of channel program 


Bits 2 and 3 = condition code 
from SIO 


Address of channel program 


Address of data control block 
for this IOB 


Flag byte 


Reenter SIO appendage for OLTEP 
guaranteed device pa 


Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 


Address of data control block 
for this IOB 


Restart address for error retry 
Code used to reposition device 
Restart address for error retry 


Value used to increase block 
count on tape 


Optical reader-~data check error 
count 


Optical reader—Incorrect Length 
error count 


Count of error retries 


Direct Access Extension Section of the IOB 





Offset 


136(X*88") = 


137CX*89") = 2 
137(€X*89*) = 1 


52 MVS/XA SAM Logic 


Length 


IOBM 


IOBBD 
ITOBBB1 


Description 


Relative extent number for 
this request (0-15) 


Bin number (data cell) 
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Offset 


138(X*8A*) 
139(X*8B*) 
139CX*SB*) 
140(0X*8C*) 
141¢X*8D") 
141(X*8D") 
142(X*8E*) 
L43(X*8F*) 


STOW Channel 


Offset 


144(€X'90") 


144(X*90") 
152(X*98") 
160(X*AO*) 
168CX*A8*) 
169(X*A9*) 
172CX*AC*) 
176CX"BO®) 


184(X*B8') 
192(X*CO*) 
200¢€X'C8*) 


200(X*C8*) 
201¢€X*C9*) 
204(X*CC*) 
208¢(X* DO") 
216¢€X* D8") 
217¢0X" DI") 
220(X*DC*) 


Length 


— =~ = A = & A) 


Programs 
Length 


8 


o DF Ww = 6 oc Oo 


oo 


- Ww = CO HF Ww OH 


hee eee 


e 


IOBBB2 
IOBCC 
TOBCCl 
IOBCC2 
IOBHH 
IOBHH1 
TOBHH2 
IOBR 


STWINCP 


STWSRCH1 
STWTICI1 
STWRDCT1 
STWSRKY1 
STWKYADI 


STNTIC12 


STWRDAT1 
STWRCKD1 
STWNRDCP 


STWSRCH2 
STWIDAD2 


STHTIC2 

STWNRKD1 
STWWRAD2 
STWNFLG2 
STHCMDCH 


- Description 


Cylinder number 


Track number 


Record number 


Description 


Channel program to read the 
par 4 two directory 
Search ID equal 

Transfer control to search I 
Read count 

Search on key equal or high 
Key address 

Flags and byte count 


Transfer control to read 
count 


READ data 
READ count key data 


Channel program to WRITE and 
READ directory blocks 


Search ID equal 
ID address 


Flags and byte count 


Transfer control to search I 
WRITE key and data 

WRITE address 

Flags 


Command chain to next CCW 
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Offset Length Name Description 
221CX*DD') = 5 Byte count 
224(X"EO") 86 STWRCKD2  ## READ count key data 
225(X*E1*) 863 STWRDAD2 READ Address 
228CX*E4*) 8G Flags and byte count 
232(X*E8*) 861 STWRCKD3 READ count key data 
253(X"E9')D 863 STWRDADS READ address 
236(X*EC*) 4 Flags and byte count 





STOW Input/Cutput Buffers 
(For details, see Buffer DSECT, below.) 


Offset | Length Name Description 
240(X*FO*) 276 STWBUF1 Initially contains the first 
: of two directory blocks read 

§516¢€X*204') 276 STWBUF2 Initially contains the second 
of two directory blocks read 

792€X*318!') 276 STWBUF3 Initially used as the first 
output buffer 

1072€X*430') 8 STWEND End of work area 


Map of STOW Input/Output Buffers 





Offset Length Name Description 

OCX*O") |. 8 BUFCNT Count field containing 
absolute disk address 

OCX*O*) 5 BUFCCHHR CCHHR field 

5CX*5") 3 BUFKDD Key and data length 

BCX*B) 8 BUFKEY Key field (highest member 

| name) 
16(X*10°) 256 BUFDATA Data Area 
 J6CX*10*) 2 BUFN Number of bytes used in this 

directory block 

18¢X*12°) 254 BUFENTRY Directory entries 

272¢X*110") 4 BUFADDR Used to chain buffers 
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SVRB Extended Save Area 





Offset Length Name Description 

OCX'0*) 4 XSAREGS Save area for register 14 
GOX*G*) 4 XSASTWWA Address of STOW work area 
8CX*8*) 16 XSAESTAE List form of the ESTAE macro 


instruction. 





Offset 


OCX*0*) 
OCX'0") 
GCX"4*) 
BCX*8") 
12CX*C*) 
720X*48*) 


80CX'50") 
80CX*50') 
80CX*50*) 
840X"54") 
86(X*56") 
86(X* 56") 
86(X*56'°) 
87(€X*57") 
88(X'58") 
88CX*58") 
92¢0X*5C*) 
96(X*60") 


100(X'64") 
120(X'78") 
121(X'79*) 
122(X"7A") 
130(X*82*) 


Length 


72 


7) 


SYNSAVE 
SYNPLI 
SYNPREV 
SYNNEXT 
SYNGRS 
SYNVLFLD 


SYNMSG 
‘SYNREAD 


SYNRDERR 


. SYNBYTRD 


SYNWAREA 
SYNPURG 
SYNACMTH 


SYNWRKA 
SYNNKA1 
SYNNKA2 


SYNWORK 
SYNSTART 


SYNCMMAI 


SYNJOBNM 
SYNCMMAZ 


SYNADAF GENERAL REGISTERS SAVE AREA AND HESSAGE BUFFER AREA-~IGGSYN 


Description 


Save area 

Used by PL/I language program 
Address of previous save area 
Address of next save area 
General register save area 


Length field for variable-lengtt 
records 


Data Area 

Data area for READ 
Return information if read erro! 
Number of bytes read 
Work area 

Error type indicator 
Access method input code 
Unused 

Work Area 

Work area number 1 

Work area number 2 
Unused 

Work area 

Blank 

Comma 

Job name 


Comma 
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BRST AE NEN AE ITI EA TI ALTE EE ISO INE TTS ODES ILE DIG TCL GLAS NE LE TEENS ADE SE I II TPE XSAN a EE) 


Offset 


131(X"83!") 
139CX*SB*) 
140(X*8C*) 
143(X"8F*) 
144(X"90*) 
146(X*92*) 
147(X*93") 
155(X"9B*) 
156CX*9C*) 
162(X*A2*) 
1635CX"AS*) 
178CX*B2!* ) 
179CX*B3") 


Length 


~ A =~ © =~ A = Ww & 


— test 
7s) wi 


179(X"B3") 7 


186CX*BA*) 


186(X"BA") 
192(X'CO") 
193(X'C1") 
193(X'C1") 
199(X"C7") 
200(X'C8") 
204¢X'CC") 
208(X'DO") 


7 owl 


& LH DP YY Hw EH HH 


SYNSTPNM 
SYNCMMAS 
SYNUNTID 
SYNCMMA4 
SYNDVTYP 
SYNCMMA5 
SYNDDNM 
SYNCMMA6 
SYNOPRTN 
SYNCMMA7 
SYNERROR 
SYNCMMAS 
SYNPOS 
SYNPOSM1 
SYNPOSM2 


SYNPOSMV 
SYNPOSMS 
SYNCMMA9 
SYNACCSS 
SYNBLNK2 
SYNPRMR1 
SYNPRMR2 
SYNEND 


Description 


Step name 

Comma 

Unit address 

Comma 

Device type 

Comma 

DD name 

Comma 

Operation attempted 
Comma 

Error description 
Comma 

Area to unpack ICB seek address 
Unused—magnetic tape 


Area to unpack block count for 
magnetic tape 


Unpack value 

Sign byte in unpack format 
Comma 

Access method type 

Blank 

Parameter register save area 
Parameter register save area 


End of IGGSYN 


SYNADAF and SYNADRLS SVRB Extended Save Area 


Offset 


160CX*AD*) 


164(X*A4°). 


164(X"AG") 
168(X"A8") 
168(X*A8") 


L72CX*AC*) 


Length | 


4 


16 
4 
12 
4 
8 


SYNRETA 

SYNXCTPL 
SYNXCTEP 
SYNXCTLT 
SYNXCTDB 
SYNXCTNM 


Description 


Return address 

XCTL parameter list 

Address of the entry point name 
List of parameters 

Address of the DCB 


Entry point name 
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Offset Length Name Description 
176(X*BO') 1 SYNXCTID toad module ID 
180CX*B4') 1 SYNESTPL Flags for TCB PURGE and ASYNCH 
181(X"B5") 3 Exit address not specified 
184(X*B&*) 4 Parameter list address not 
specified 
188CX*BC") 4 TCB not specified 
192¢€X'CO") 1 Flags 
193CX*C1") 3 Reserved 
196(X*C4") 4 SYNESFLG ESTAE routine flag word 
1... 2... SYNGTM Return from GETMAIN without 
error 
ol... «22. SYNCSA Save areas chained successfully 
coke coe SYNMLC Message CSECT loaded 
ooed «eee SYNRCS Caller's save area restored 
successfully 
woes 2... SYNESTAE ESTAE routine entered 
» XXX Reserved 
198(X'C6") 1 SYNURKEY User key 
199¢€X'C7") 9 SYNUNPKA Work area for unpack 
SETPRT PARAMETER LIST“~IHASPP 
Offset Length Name Description 
OCX*0*) l Unused 
1CX*1") SPPDCBB DCB address 
GCX*G*) SPPUCS UCS module ID (not used for 380 
Printing Subsystem 
BCX*8*) 1 SPPLDMOD Flag byte describing load mode 
Sessa 3800 Printing 
oO... wees UCS= fold not specified 
hey sae UCS= fold 
XXX XXX Reserved 
9(CX*98) 1 SPPVERFY Flag byte describing UCS verify 


(not used for 3800 Printing 
Subsystem) 
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SS aE Oa a SL EET TE PET DT EE SS TI I I I EIEIO TE 


Offset 


LO(X*A*) 


11¢X"B*) 


ISCXTF*) 


16(X*10") 


238 MVS/XA SAM Logic 


Length 


MRM. KKK 


10... ween 
0l.. @eee 
..10 @@e¢0¢ 6 


..O] e@e@8 6 


SPPFDUNF 
SPPFBLK 

SPPFUBLK 
SPPSCHED 


SPPNOSCD 


SPPUNFLD 


SPPFOLD 


SPPEXTL 


SPP FCB 


SPPVERAL 


SPPFLAG1 
SPPBURST 
SPPBURST 
SPPREX 


SPPINIT 


SPPNOMSG 


SPPBFREQ 


SPPBTREQ 


Description 


No verification for UCS 
UCS verification requested 
Unused 

Flag byte: 

Block data checks 

Unblock data checks 


Schedule SYSOUT data set segment 
for printing now 


Do not schedule SYSOUT segment 
for immediate printing 


OPTCD= 
OPTCD= 


unfold option 
fold option 
Unused 


SETPRT parameter list is at 
least 48 bytes long 


FCB module ID or address of 
in-storage FCB module (see 
SPPFLAG2) 

FCB flag byte: 


No FCB image verification 
requeste 


Print FCB image for verification 
Unused 

No forms alignment requested 
(not used for 3800 Printing 
Subsystem) 

Issue WTOR for forms alignment 
Cnot used for 3800 Printing 
Subsystem) 

Flag byte number ]1: 

Thread continuous forms stack 
Thread burster-trimmer-stacker 
Retransmission - only change 
COPIES, FLASH, and starting copy 
number 

Issue initialize printer CCW 


Suppress error messages on the 
printer 


Bypass forms overlay WTOR or 
bypass band mount message 


Bypass threading change WTOR 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials —— Property of IBM 





Offset Length Name - Description 
.-L. SPPBOMNSG Bypass WCGM's exceeded error 
message 
ooee eeeh SPPFORC JES force load of the FCB 
Wecxtlit) il SPPFLAG2 Flag byte number 2: 


One 4a Copy modification, if specified, 
is a module ID. 


biek (aks Copy modification is specified 
as an address. 


SOs . 6S5% Character arrangement table 0 i/1 
specified is a module I 


wang ane srs Character arrangement table 0 i 
specified as an address. 


pe 


ja Ue~ “gacaxs Character arrangement table 1 
specified is a module ID. 


sg Be... aaduate Character arrangement table 1 is 
specified as an address. 


a | era es Character arrangement table 2 i: 
specified is a module ID. 


ae meee ee Character arrangement table 2 i: 
specified as an address. 


ude 


ees, Oseu Character arrangement table 3 
specified is a module ID. 


ee eee Character arrangement table 3 i: 
specified as an address. 


sleek. 16 es FCB is specified as a module ID 
aes ee FCB is specified as an address. 
° «XX Unused bits. 


18&CX*1l2"') 1 SPPCPYNR The number of copies to be 
printed. 


19CX*13') 1 SPPSTCNR The copy number of the first 
copy to be printed. 


20C€X*14") 2 SPPLEN Length of the parameter list. 


22(X'16") 1 SPPFRMNR The number of copies to be form 
flashed, starting with the firs 
printed copy. 


230X*17") 61 SPPTRC The character arrangement table 
to be selected when the 
specified copy modification 
record is loaded in the printer 


240X"'18*) G&G . SPPMODPT The module ID or in-storage 
nA of the copy modificatio 
module. 


28CX*1C*) 4 SPPIMAGE The identifier for the forms 
overlay frame. 
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Offset 


320X*20*) 
36(X"24") 
40(X*28") 
44(0X"2C°) 
48(X*30') 
52(X*34*) 


56¢€X"38") 
57(X*39*) 


58(X*3A*) 


Length 

6 

4 

4 

4 

G 

4 

1 

l 

bed < 

eAcear %s 

alk e@e.¢6 

eee llll 
e@6¢ 6 00.. 

eo @ Ql. 

[a ) e 10.. 
e¢°@e ll.. 

e@ 8 @ . 00 

6 


SPPXLAT1 


SPPXLAT2 


SPPXLATS 


SPPXLAT4 


SPPEMSGA 


SPPLIDCB 


SPPCOPYP 


SPPFLAG3 


SPPCPYPS 
SPPPSPDS 


Description 


The module ID or in-storage 
address of character arrangement 
table module 0. 

The module ID or in-storage 
address of character arrangement 
table module l. 

The module ID or in-storage 
address of character arrangement 
table module 2. 

The module ID or in-storage 
address of character arrangement 
table module 3. 

Address of the message 
communication area for error 
information. 

Address of the library DCB for 
3800 Printing Subsystem load 
modules. 

COPYP specification 

Flag byte number 3: 

COPYP specified 

PSPEED specified 

Reserved 


Caller's PSPEED specification as 
follows: 


Unchanged 

Low 

Medium 

High 

Reserved; must beccars 


Reserved 
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ACCESS METHOD SAVE AREA FOR USER TOTALING 
The access method save area for user totaling is pointed to by 
the address in bytes 5 through 7 in the EXCP access method, 


BSAM, or QSAM-dependent section of the DEB. See Figure 34 on 
page 241 


Access method save routine address 
Current image area address 

First image area address 

Last image area address 

Length of each image area | 
Address of user’s totaling area 


Size of access method totaling save area’ 


| Address of last image area for volume2 


First image erea® 


| Last image area 3 | 


‘The size of this save area includes the space used by image areas. 


2this field is adjusted by the End-of-Volume routine so that it points to the 
image area containing the user’s total for the last record written on the volume. 


3the image areas are all the same size, that is, the tength of the user’s totaling 
area rounded to the nearest half-word. 





Figure 34. Access Method Save Area for User Totaling 
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DIAGNOSTIC AIDS 


OPEN AND CLOSE EXECUTOR PROBLEM DET INATIO 


For information on tracing module and data flow during execution 
of the OPEN and CLOSE executors that issue the IECRES macro, see 
"Problem Determination" in Open/Close/EOV Logic. Note that the 
access method executors do not have transfer control tables as 
common OPEN and CLOSE modules do. 


QSAM CONTROL BLOCKS 


Figure 35 on page 243 shows the control blocks used in QSAM. 
Through the data control block (DCB), the QSAM routines 
associate the data being processed with the processing program. 
Fields in the DCB point to the start of a buffer, the end of a 
buffer, and an input/output block (IOB). These fields are 
updated as successive channel programs are executed. Each [OB 
points at the next IOB and at a channel program (CP), and 
carries an event control block (ECB) that the I/0 supervisor 
posts after the channel program has been executed. 


SAM CONTROL BLOCKS 


Figure 36 on page 244 shows the control blocks used in BSAM and 
their stages of completion. Stage 0 shows the state of the 
control blocks before any READ or WRITE macro instruction. 

Stage 1 shows the effect of the READ or WRITE macro instruction, 
that is, the values supplied by the processing program in the | 
data event control block (DECB). Finally, stage 2 shows the 
effect of the READ or WRITE routine having tied together these 
control blocks. 


Before any READ or WRITE macro instruction, the data control 
block (DCB) points to the first input/output block CIOB). This 
IOB points back to the DCB, to the next IOB, and to the channel 
program (CP). The READ of WRITE macro instruction identifies 
the DCB and the buffer to be read into or written out. Finally, 
the READ or WRITE routine connects the DECB with the current 
I0B, inserts the address of the ECB (which is located in the 
DECB) into the IOB, and points the channel program to the 
buffer. Successive macro instructions cause updating of the IOB 
address in the DCB and insert address values in the next DECB, 
IOB, and channel program. 
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NEXT 108 
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. Legend: 
Address Values: i 
0 Entered by the OPEN. executor, 
1 Updated by the synchronizing routine. 
2 Updated by the GET or PUT routine, 


‘- - — Successive Address Values 


Figure 35. QSAM Control Blocks 
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Legend: 
Address Values 
0 Entered by the OPEN Executor. 
1 Provided by the processing program. 
2 Completed by the READ or WRITE routine. 
--- Successive Address Values. 


Figure 36. BSAM Control Blocks 
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Cc IB IN A CONTROL oc CICB 
Figure 37 shows the relationship of the SYSIN/SYSOUT data sets. 


Spool OCB 


DCBSVCXL 


(OCBIOBAD) DEB 





DCBDEBAD 


OCBCICB 


(DCBIOBA) 





7 DEBOCBAD 
DEBECBAD 


Save Area 


SAN-SI Flags 


[ 
| rm 


RPL 


Internal 
Pointers 
and 

Work Areas 


SVC Exit List 





Notes: 

1. Set by DCB OPEN exocutors (SAM-SI). 

2. Set by ACB OPEN (JES2 and JES3 open executors). 
3. Set by DCB OPEN executors after ACB open. 


Figure 37. Control Block Structure for SYSIN/SYSOUT Data Sets 
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END CODES AND CROSS-REFERENC BLE 


This table can be used to determine which module detected an 
abnormal termination condition. The system code and return code 
Cregister 15) are used to identify the message ID and the module 
name and can be found in dumps and in the message text. For 
example, in the message 


IEC1G1I, 013-BC, IGG0199G, JJOUFPNS,,SYSIN 


013 is the system code and BC is the return code. Information 
in the table should be used in conjunction with System Messages 
and System Codes. 





Abend Return Message 
Code Code Module Number 
001 IGGO19AH 
IGGO19AN 
002 04 IGGO19AB IECO36I1 
IGGO19AD 
IGGO19AE 
IGGO19BN 
IGGO19B0 
IGGO19FB 
IGGO19FD 
IGGO19FF 
08 IGGO19CC 
IGGO19TV 
IGG019T2 
oc IGGO19TV 
10 IGGO19FG 
14 IGGOI9AL 
IGG019DK 
IGG019T2 
18 IGGOLOAJ 
IGGO19BP 
IGGO19DJ 
IGGO19FJ 
003 01 IGGO19CC 
02 IGGO1LICE 
--IGGO19CF 
IGGO19OFK 
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Abend Return. 
Code Code 


03 


004 01 
02 
03 
04 
05 
06 
008 


013 10 
14 
18 
1c 
20 
24 


28 


30 
34 


40 
48 
4C 


50 
54 
5C 


60 


Module 


IGGO19FA 
1GG019FQ 
IGGO197N 
IGGO197N 
IGG0197N 
1GG0197N 
1GG0197M 
I1GG0197Q 
IGG019BS 
IGG019DC 
1GG0191C 
1GG0191B 
1GG0191B 
IGGO191B 
IGGO191A 
IGGO191A 
1GG0199G 
IGGO191A 
1GG0199G 
IGG0191F 
IGGO1911 
1GG0199G 
1GG01910 
16601911 
IGGO191A 
IGG0196B 
1GG0199G 
1GG0196B 
IGG0196A 
1GG01915 
1GG01916 
IGGO1911 
IGGO191A 


Message 
Number 


TEC1411 


renner erase reece TE LT a So Pay 
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Abend Return Message 
Code Code Module Number 
70 IGG0199G 
88 IGGO191B 
8C IGGO191L 
90  1660197V 
94 IGGO191A 
98 IGGOL9LIA 
9C IGG0197V 
AO IGGOL9LA 
A4 IGG0199G 
A& IGG0199G 
BO IGGOL9OLA 
BS4 IGGOL9OIA 
BS I1GG0197V 
BC IGG0199G 
co IGG0199G 
cc 1GG0196Q? 
DO IGGO191A 
E4 I1GG0196I 
112 01 IGCTO0018 IEC9O0SI 
02 IGCTO0018 
03 IGCT0018 
04 IGCT0018 
13 IGCT0018 
14 IGCTO0018 
115 IGGO2Z10A 
118 01 IGCT0028 IECI12I 
02 IGCT0028 
Note 


a Applies only to 3800 Printing Subsystem 
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Fe en a aS 





cao’ Esde™ = ogre, Nebo 
119 01 IGCTOOZE IEC914I 
02 IGCTOO2E 
03 IGCTOO2ZE 
04 IGCTOO2E 
12 IGCTOO2E 
13 IGCTOO2E 
14 IGCTOO2ZE 
144 IGCO0006H 
145 01 IGCT0069 IEC916I1 
02 IGCT0069 
03 IGCT0069 
04 IGCT0069 
05 IGCTO0069 
06 IGCT0069 
07 IGCT0069 
08 IGCo006I 
IGCTO0069 
151 IGCT1081 IEC918I 
169 01 : IGCTOLOE IEC9191 
02 IGCTOLOE 
03 IGCTOLOE 
IGCOO1OE! 
172 IGGO19BX 
212 01 IGCT0018 IEC9O9TI 
02 | IGCT0018 
03 IGCT0018 
215 01 IGCT0021 IEC910I 
02 IGCTO0021 
03 IGCTO021 
04 IGCT0021 
Note 


i Applies only to 3800 Printing Subsystem 
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meee cc 


Abend Return Message 
Code Code Module Number 
218 01 IGCTO002D IEC913I1 
02 IGCTO002D 
03 IGCT002D | 
219 01 IGCTOO2E IEC915I. 
02 IGCTOOZE 
03 IGCTOO2E 
04 IGCTOO2E 
244 IGCTOO6H 
245 IGCT0069 IEC917I 
251 01 IGCT1081 IEC918I1 
02 IGCT1081 
269 IGCTO1LOE IEC920I 
315 IGCT0021 IEC91II 
337 08 IGGO19AV IECO24I 
3494 IGCTO06H 
351 IGCT1081 IEC9I18I 
400 IGGO19BX 
IGGO19BZ 
413 2C IGGO19I1N ITEC1451 
444 IGCTOO6H 
01 IGCT1081 IEC9181 
02 IGCT1081 
03 IGCT1081 
04 IGCT1081 
544 IGCTO06H 
644 IGCTOO6H 
744 IGCTO06H TEC9O7I 
B13 04 I1GG0196Q IEC1521 
IGGOLIG6R 
08 IGG0196Q 
oc IGGO196Q 
IGG0196R 
10 IGG0196Q 
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Abend Return 
Code Code 


14 
18 
1C 
20 
24 
28 
2C 
30 
34 

B14 04 
08 
oc 
10 
14 


18 


C37 





Module 


IGG0196Q 
IGG0196Q 
IGG0196Q 
IGG0196Q 
IGGO0196R 
1GG0196Q 
IGG0196R 
IGG0196Q 
1GG0196Q 
IGG0196Q 
IGG0196Q 
IGG0201B 
IGG02012 
IGG0201B 
IGG02012 
IGGO201B 
IGG02012 
IGGO0201B 
IGG02012 
IGGO201B 
IGG02012Z 
IGGO201B5 
IGG0201Z 
IGCT0055 


| SETPRT EXECUTOR RETURN/REASON CODES AND MESSAGES 


The return codes produced by the SETPRT executors are set when 
an error is detected by one of the executors. The SETPRT work 
area contains the return code (at SPWRETCD) and the reason code 
Cat SPWRSNCD) (see "Data Areas" on page 210 for a description of 


the SETPRT work area). 
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Executor IGCO008A detects the following errors: 





Return Reason 
Code Code Message No. 
00000018 


0000001C 00000000 
0000001C 00000004 


00000048 00000004 


Description 


Either: 
6 DCB not open 


e DCB invalid for a 
sequential data set 


@ SETPRT parameter list 
invalid 


e Output device not UCS or 
3800 printer 


Permanent I/0 error ina 
previously initiated output 
operation. 


lost data condition 
for a nonpage tracking 


Possible 
detected 
printer. 


lost data condition 
for a page tracking 


Possible 
detected 
printer. 


Executor IGG08101 detects the following errors: 


Return Reason 

Code Code Message No. 
00000004 

00000008 


Description 


Operator canceled job 
step——chain, train, or band not 
available. 


Permanent I/0 error during BLDL 
for UCS image. 


Executor IGG08102 detects the following errors: 


Code” Code Message No. 
0000000C 1EC1261 
00000010 

00000014 


0000001C 00000004 


LY26-3967-0 


Description 
Permanent I/0 error during UCS 
load. 


Permanent I/0 error during UCS 
verification display. 


Operator canceled SETPRT during 
UCS verification display. 


Possible lost data condition 


detected for a nonpage tracking 
printer. 
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Executor IGG08103 detects the following errors: 





Return 
Code 


00000400 


o000001C 


00000048 


Executor 


Return 
Code 


00000C00 


00000C00 


00001000 


00001400 


0000001C 


00000020 


00000048 


Executor 


Return 
Code 


00000004 


Reason 
Code 


00000004 


00000004 


Reason 
Code 


00000004 


00000004 


00000004 


Reason 
Code 


Message No. 
IECL241 


IEC1241 


Message No. 


Description 


Operator canceled job step-——FCB 
not available. 


Permanent I/0 error during BLDL 
for FCB image. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


Possible lost data condition 
detected for a page tracking 
printer. 


1GG08104 detects the following errors: 


Description 


Permanent I/0 error during FCB 
load. 


Permanent I/0 error during FCB 
load; LOAD check—probable FCB 
contents error. 


Permanent I/0 error during FCB 
verification display. 


Operator canceled SETPRT during 
FCB verification display. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


No storage available for FCB 
copy/convert area. 


Possible lost data condition 
detected for a page tracking 
printer. 


IGG08105 detects the following errors: 


Description 
Operator canceled SETPRT—band 
not available. 


Permanent I/0 error during BLDL 
for UCS image table. 
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Return 
Code 


0000000C 


00000010 


00000014 


0000001C 


00000020 


00000048 


Executor 


Return 
Code 


00040000 


00080000 


00000020 


00000024 
00000038 
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Reason 
Code 


00000004 


00000004 


Reason 
Code 


0000nn04 


0000nn04 


IEC168I 


IEC169I1 


IEC1741 


IEC175I1 
IEC178I 


Description 


Permanent I/0 error during band 
id display. 


Permanent I/0 error during UCSB 
read. 


Operator canceled SETPRT during 
UCS verification display. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


No storage available for read 
UCSB area. 


Possible lost data condition 
detected for a page tracking 
printer. 


IGG08110 detects the following errors: 


Description 


Issued if any of the specified 
modules for character 
arrangement tables (where nn= 
01 to 04) could not be found on 
the library. 


An 1/0 error. occurred while 
attempting to locate a 
character arrangement table 
(where nn= 01 to 04) in the 
library data set. 


SYS1.IMAGELIB was not opened 
because storage space was not 
available. 


SYS1.IMAGELIB cannot be opened. 
I/O error occurred while trying 


to initialize the 3800 Printing 
Subsystem. 
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Executor ICC08111 detects the following errors: 





Return 
Code 


00040000 


00080000 


000C0000 


000C0000 


00000030 


00000044 


0000004C 


0000004C 


Executor 


Return 
Code 


00040000 


00040000 


Reason 
Code 


00000018 


00000018 


xx000018 


xx00001C 


xx000018 


xx00001C 


Message No. 


IEC168I1 


IEC169I 


TEC1701 


IEC1701 


IEC176I 


TEC18&2I 


IEC184I 


IEC1841 


Description 


Issued if any of the specified 
modules for library character 
sets could not be found on the 
library. 


An I/0 error occurred while 
attempting to locate a library 
character set in the library 
data set. 


An I/O error occurred while 
loading a library character set 
(xx indicates the opcode of the 
CCW when the error occurred). 


An I/0 error occurred while 
loading WCGMs (xx indicates the 
opcode of the CCW when the 
error occurred). 


There are more character set 
IDs requested in the character 
arrangement tables than the 
number of WCGMs installed on 
the printer. 


A position in the translate 
table refers to a WCGM for 
which no character set has been 
specified. 


A load check occurred while 
loading a library character set 
(xx indicates the opcode of the 
CCW when the error occurred). 


A load check occurred while 
loading WCGHs (xx indicates the 
opcode of the CCW when the 
error occurred). 


IGG08112 detects the following errors: 


Description 


The requested copy modification 
module could not be found on 
the library. 


Issued if any of the specified 
modules for graphic 
modification records could not 
be found on the library (nn is 
the index of the character 
arrangement table, and mm is 
the index of requested graphic 
character modification module 
within that table). 
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Return 
Code 


000380000 


00080000 


000C0000 


000C0000 


000C0000 


00000020 


00000024 
00000034 


0000004C 


0000004C 


Reason 
Code 


00000008 


0Ommnn10 


xx00nn04 


xx000008 


xxmmnnl 0 


xx00nn04 


xx000008 


IEC1691 


IEC1691 


IEC1701 


TECI70I 


TEC1701 


IEC1741 


TEC175I 
IEC1771 


IEC184I 


IEC184I1 


Description 


An I/0 error occurred while 
attempting to locate a copy 
modification module in the 
library data set. 


An I/0 error occurred while 
attempting to locate a graphic 
character module (nn is the 
index of the character 
arrangement table, and mm is 
the index of requested graphic 
character modification module 
within that table. 


An 1/0 error occurred while 
loading a translate table 
(where nn=01 to 04 and xx 
indicates the opcode of the CCW 
when the error occurred). 


An 1/0 error occurred while 
loading a copy modification 
module (where xx indicates the 
opcode of the CCW when the 
error occurred). 


An I/0 error occurred while 
loading a graphic character 
modification module (nn is the 
index of the character 
arrangement table, mm is the 
index of requested graphic 
character modification module 
within that table, and xx 
indicates opcode of the CCW 
when the error occurred). 


SYS]. IMAGELIB was not opened 
because storage space was not 
available. 


SYS1.IMAGELIB cannot be opened. 


The requested copy modification 
module requires a translate 
table which was not loaded for 
this request. 


A load check occurred while 
loading a translate table 
(where nn=01 to 04 and xx 
indicates the opcode of the CCW 
when the error occurred). 


A load check occurred while 
loading a copy modification 
module (where xx indicates the 
opcode of the CCW when the 
error occurred). 
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Reason 
Code 


Message No. 


0000004C xxmmnnl0 TIEC184I 


Description 


A load check occurred while 
loading a graphic character 
modification module (nn is the 
index of the character 
arrangement table, mm is the 
index of requested graphic 
character modification mooure 
within that table, and x 
indicates the opcode of the CCW 
when the error occurred). 


Executor IGG08113 detects the following errors: 





Return 
Code 


00000400 


00000800 


00000C00 


00001000 


00001400 


00000020 


00000024 


Reason 
Code 


00000020 


00000020 


xx000020 


xx000020 


00000020 


0000004C xx000020 


Message No. 


IEC168I 


IEC169I1 


ITEC1701 


IEC1711 


IECi72I 


IEC1741 


IEC1751 
IEC1841 


Description 


The requested FCB image could 
not be located via the DCB exit 
list and was not in the library 
data set. 


An 1/0 error occurred while 
attempting to locate the 
requested FCB image from the 
library data set. 


An 1/0 error occurred while 
loading an FCB (where xx 
indicates the opcode of the CCW 
when the error occurred). 


An 1/0 error was encountered 
while printing a representative 
map of the requested FCB image. 


SETPRT processing was 
terminated because the operator 
canceled the job after 
inspecting the representative 
FCB image as it was displayed 
on the 3800 Printing Subsystem. 


SYS1.IMAGELIB was not opened 
because storage space was not 
available. 


SYS1.IMAGELIB cannot be opened. 


A load check occurred while 
loading a forms control buffer 
(xx indicates the opcode of the 
CCW when the error occurred). 
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Executor IGG08114 detects the following errors: 





Return Reason 
Code Code Message No. Description 


00000028 IEC172I The operator canceled SETPRT 
processing after receiving a 
request to load a forms overlay 
negative. 


0000002C IEC172I The operator canceled SETPRT 
processing after receiving a 
request to rethread the 3800 
Printing Subsystem. 


0000003C IEC179I A request for threading to the 
burster-trimmer-~stacker was 
issued but the feature is not 
installed on the 3800 Printing 
Subsystem being used. 


00000040 xx000000 IECI1&80I An I/0 error occurred while 
trying to display a status code 
on the 3800 Printing Subsystem 
for a rethread or forms overlay 
request (xx indicates the CCW 
when the error occurred). 


00000040 xx0d00000 IECI80I An I/70 error occurred while 
issuing a "SENSE I40' CCW to 
sense the present paper thread 
path from the 3800 Printing 
Subsystem (xx indicates the CCW 
when the error occurred). 


Executor IGG08115 detects the following errors: 


Return Reason 

Code Code Message No. Description 

O000CO000 xx00000C IEC170I An I/70 error was detected while 
loading the starting copy 
number in the 3800 Printing 
Subsystem. 

000C0000 xx000014 IEC170I An I/0 error was detected while 
loading the total copy count 
and forms overlay image count 
into the 3800 Printing 
Subsystem. 

00000040 xx000000 IECL8OI An I/0 error occurred while 


resetting the 3800 Printing 
Subsystem to the first 
translate table. 
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Executor IGG08116 detects the following errors: 





Return 
Code 


00000048 


00000048 


Reason 
Code 


xx000004 


xx000008 


Message No. 


IEC183I1 


TEC1831 


Description 


A system-restart-requested type 
of paper jam occurred on the 
3800 Printing Subsystem (xx 
indicates the opcode of the CCW 
when the error occurred). 


Cancel key was pressed on the 
3800 Printing Subsystem (xx 
indicates the opcode of the CCW 
when the condition occurred). 


Executor IGG08117 detects the following errors: 


Return 
Code 


00000050 


00000050 


00000050 


00000050 


00000050 


00000050 


00000050 


Reason 
Code 


00000004 


00000008 


0000000C 


00000010 


00000014 


00000018 


0000001C 


IECi811 


TEC185I1 


TEC185I 


IEC185I 


IEC185I 


IEC185I1 


IEC1851 


Description 


An invalid SETPRT request for a 
SYSOUT data segment was 
specified. <A storage address 
was used for a copy 
modification module, character 
arrangement table, FCB, or user 
library DCB. Only 3800 
Printing Subsystem load module 
IDs in SYS1.IMAGELIB are 
allowed for SYSOUT setup. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while attempting 
to read a JFCB or JFCBE control 
block from SWA. 


During SETPRIT processing for a 
SYSOUT data segment, an error 
was detected while invoking the 
CLOSE Subsystem Interface for 
the previous data segment. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while invoking the 
OPEN Subsystem Interface for 
the new data segment being 
created. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while the 
scheduler spool file allocation 
Arcee was segmenting the data 
set. 


An ENQ macro, issued by SETPRT 
processing, failed. 


More than one DCB was open for 
the SYSOUT data set. 
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DEBUGGING EXCPVR CHANNEL PROGRANS 


The IOBs chained off the DCBIOBA pointer do not contain a 
channel program; they contain one or two CCWs and status 
information Cin IOBNFLG1 and IOBEX). The CCWs and status 
information are used by the SIO0/pagefix appendage to build a 
real-address channel program in the SAMB. The SAMB contains the 
channel program, the pagefix list, IDAW lists, the count field 
work area, and the status flags. Figure 38 shows the 
relationship between the DCB, the DEB, the ICQE, and the SAMB. 


C8 ICQE 


a: > 
~g 
DEBXTNP OCBICQE 

DCBDEBAD 
DCBIOBA — 

, ‘i IOBNIOBA OB 

IOBNIOBA 
‘SAMB' is | 


UO 
m 
o 
Oo 










in EBCDIC 


Channel 
Program 





Figure 38. Control Blocks Used with EXCPVR Processing 
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AM/QSAM _C EL PRO 


One real-address channel program is built in the SAMB. The 
channel program consists of a prolog (at SAMPROLG) and one or 
more channel program segments Cat SAMNCCW, which can contain a 
channel program of up to 27 CCWs). The channel program is 
chained from the prolog with a TIC (transfer in channel) 
command, and serves one of the IOBs on the active IOB queue 
(pointed to by the ICQE). There are five types of channel 
program segments: 


Update-WRITE 

Update-WRITE followed by refill-READ 
Output (without the track overflow option) 
Output (with the track overflow option) 


Input 


ROLOG SEGHENT 


The prolog CCWs are partially built during OPEN processing. The 
IOBSTART field (in the SAMB's IOB) points to the first prolog 
CCN to ae epororees (see Note 3, below) when the channel program 
is executed. 


For nonbuffered DASD devices, the following prefix is built. 
Note: The prolog channel program segment issues a search ID EQ 
CCH to locate either: 

@ The desired record to be read or updated, or 


® The record that immediately precedes the desired record to 
be read or updated (search previous logic). 





CCWSs COMMAND CODE ADDRESS FLAGS COUNT 

PCCWl? SET SECTOR SAMSECT CS ] 
PCCW1+62 Sector 

PCCN2?! SEARCH ID EQ IOBSEEK+3 Cc 5 

PCCW3 TIC PCCN2 — — 

PCCNG TIC SAMCCNE —_ — 


For buffered DASD devices, the following prefix is built: 





Ccws COMMAND CODE ADDRESS FLAGS COUNT 
PCCWl Unused — —_— 

PCCN2 Unused —_ —_— —_ 
PCCN3 LOCATE RECORD SAMLRPRM Cc 16 
PCCW4 TIC SAMCCH —_— — 





IOBSTART points to PCCNH3. 


For buffered DASD, all occurrences of (set sector), search id 
EQ, TICX¥-8 will be replaced by a located record. 
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FLAGS 

C = Command chain 
S = SLI 

Notes: 


1 IOBSTART points to PCCWl if the device includes the 
rotational position sensing feature. Otherwise, IOBSTART 
points to PCCW2. 


é When the request is update-WRITE, the sector value is the 
first byte of PCCWl's count field. Otherwise, it is the 
SAMSECT field. 


3 PCCHW4 might branch (with a TIC) to a CCW other than the 
first CCW in SANCCH: 


—When a re-EXCPVR exit from the channel end/abnormal end 
appendage occurs, or 


—When a return from the first entry to the abnormal end 
appendage occurs. 


UPDATE-WRITE CHANNEL PROGRAM SEGHENT 


The update-WRITE channel program segment is built to serve an 
update-WRITE-only request (that is, SAMBSWR in SAMFLAG] is on). 
The channel program segment is built by the CCHBLDUP routine Cin 
module IGGO19BX). Only one BSAM update-WRITE channel program 
segment is built in SAMCCW at a time. 


If the write validity option is not specified, the update-WRITE 
channel program is: 





CCWH COMMAND CODE ADDRESS FLAGS COUNT 
CCW WRITE DATA Buffer? cI? — 
CCW2 NOP = 3 1 
FLAGS 


C = Chain command 

S = SLI 

I = Indirect addressing 
Note: 


i If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


If the write validity check option is specified and the data set 


being accessed is not a track overflow data set, the 
update-WRITE channel program is: 
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WITHOUT ROTATIONAL POSITION SENSING 


CCwWS COMMAND CODE ADDRESS FLAGS COUNT 
CCH1 WRITE DATA Buffer? cI? — 
CCN2 SEARCH ID EQ IOBSEEK+3 8 C 5 

CCWS TIC CCW2 = — 
CCW4 READ KEY DATA 0 CSK X'7FFF® 
CCW5 NOP — S — 


WITH ROTATIONAL POSITION SENSING 





CCN COMMAND CODE ADDRESS FLAGS COUNT 
CCW1 WRITE DATA Buffer? cI? — 
CCH2 READ SECTOR PCCW1+6- CS l 

CCNS SET SECTOR? PCCW1+6 CS l 

CCN4 SEARCH ID EQé5 IOBSEEK+3 C 5 

CCW5 TICs | CCN4 = — 
CCN6 READ KEY DATA 0 CSK X'7FFF' 
CCW7 NOP aaa 5 = 
FLAGS 


C = Chain command 
S$ = SLI 

K = Skip 

I 


Notes: 


Indirect addressing 


i If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
List and the IDA flag is set. 


2 PCCW1 is the prolog channel program segment's first CCH, a. 
set-sector command. 


és For buffered DASD, CCWs 3, 4, and 5 will be replaced by the 
following: 


| CCW3 | LOCATE RECORD | SAMLRPRMt+16 | C { 16 | 


Some of the data records of a track overflow data set are 
written using write special CKD CCWs. Consequently, the 
direct-access device automatically switches to the next track 
and cylinder when the end of each track overflow record segment 
Cexcept the last) is detected during a write data or read data 
CCW. If the WRITE validity option is specified and a track 
overflow data set is being accessed, the update-WRITE channel 
program is: 
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WITHOUT ROTATIONAL POSITION SENSING 








CCHS COMMAND CODE ADDRESS FLAGS COUNT 
CCN1 WRITE DATA Buffer! cI? — 
CCN2 SEEK HEAD ITOBSEEK+1 Cc 6 
NoP2 — CS 1 
CCN3 SEARCH ID EQ IOBSEEK+3 Cc 5 
CCN4 TIc CCWS — _— 
CCN5 READ KEY DATA CSK X*FFF® 
CCN6 NOP —_ S l 
WITH ROTATIONAL POSITION SENSING 
cCcws COMMAND CODE ADDRESS FLAGS COUNT 
CCWl1 WRITE DATA Buffer? cI3 — 
CCW2 SEEK HEADé IOBSEEK+#1 Cc —«<66 
NOP= — cS 1 
CCN3 SET SECTOR? PCCH1+6* cs l 
CCH4 SEARCH ID EQ¢é ITOBSEEK+3 Cc 5 
CCH5 TIc¢ CCN4 — — 
CCN6 READ KEY DATA 0 CSK X*7FFF* 
CCN7 NOP — l 
FLAGS 
C = Chain command 
$ = SLI 
K = Skip | 
I = Indirect addressing 


Notes: 


a If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


3 For buffered DASD, CCWs 3, 4, and 5 will be replaced by the 
following: 


| CCH3 | LOCATE RECORD | SAMLRPRMt16 | C 1 16 | 


4 PCCWl is the prolog channel program segment's first CCW, a 
set sector command. . 


PDATE-WRITE FOLLOWED FE REFILL-READ CHAN . PROGRAM SEGNEN 


The update-WRITE followed by refill-READ channel program segment 
is built to serve a request that updates a record and then reads 
a subsequent record (not necessarily the next sequential record) 
into the buffer. This type of request is indicated with the 
SAMPUTX bit in SAMFLAG1 set on. The segment is built by the 
CCWBLDUP and CCWBLDIP routines Cin module IGGO19BX). 


Only one update-WRITE followed by a refill-READ channel program 
segment is built in SAMCCW at a time. 
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If the write validity check option is not specified, the : 
update-write followed by refill-read channel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 











CCWH COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE DATA Buffer? cI} —_ 
CCN2 SEEK HEAD@ SAMSEEK+1 Cc 6 
NOP= — | cs 1 
CCW3 SEARCH ID EQ SAMSEEK+3 Cc 5 
CCNG TIC : CCWN3 — — 
CCN5 READ KEY DATA? 0 CSK X*7FFF® 
CCN6 M/T READ COUNT“ SAMCNTS5 C 8 
CCW7 READ DATA Buffer? cI?s° — 
CCWN8 M/T READ COUNT SAMCNTS5 Cc 8 
CCN9 NOP | | — S 1 
WITH ROTATIONAL POSITION SENSING 
CCW? COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE DATA Buffer? cI? — 
CCW2 SEEK HEAD® SAMSEEK+1 Cc 6 
NOP@ _ cs 1 
CCW3 SET SECTOR’ SAMSECT cs 1 
CCNG SEARCH ID EQ’ SAMSEEK+3 Cc 5 
CCW5 Tic? CCN4 — . — 
CCN6 READ KEY DATA 0 CSK X'*7FFF* 
CCW7 M/T READ COUNT* SAMCNTS3 Cc 3 
CCNS8 READ DATA Buffer? . cr?s¢ — 
CCWN9 M/T READ COUNT SAMCNTS Cc 8 
CCW10 READ SECTOR SAMSECT $ 1 
FLAGS 
C = Chain command 
S$ = SLI 
K = Skip 
I = Indirect addressing 
Notes: 


2 


> 
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If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


The read key data CCW is part of the channel program only 
when search previous logic is required for a track-overflow 
data set. Otherwise, the CCW is omitted. 


The M/T read count. CCN is part of the channel program only 
when search previous logic is required for the data set 
Ceither a track-overflow data set or not). Otherwise, the 
CCW is omitted. ? 
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The count field used in this CCW is one of the 14 ont byte 
fields in SAMCNTS (in the SAMB control block), and i 

different from other SAMCNTS count fields used by Sener CCHs 
in the channel program. 


The SLI flag is set to l 
pongeh: en is, RECFM= v). 
if: 


if the record format is variable 
The SLI flag is also set to l 


¢ The record format is not fixed-length records written as 


standard blocks (CRECFM=FS or RECFM=-FBS), and 
e The data set is not a track-overflow data set CRECFM=T). 


For buffered DASD, chs 3, 4, and 5 will be eereces by the 
following: 


| CCW3 | LOCATE RECORD | SAMLRPRM+16 lc] 16 | 


If the WRITE validity check option is specified and the data set 


being accessed is not a track overflow data set, the 
update-WRITE channel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 





C = Chain command 


S = SLI 
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CCWs COMMAND CODE ADDRESS . FLAGS COUNT 
CCH WRITE DATA Buffer? ci?.. — 
CCH2 SEARCH ID EQ JOBSEEK+3 = C_ 5 
CCN3 TIC CCNG — 
CCNS READ KEY. DATA 0 CSK -X"7FFF* 
CCN5 SEEK HEAD SAMSEEK+1 C 6 
NOP2 —_— cs 1 
CCH6 SEARCH ID ‘EQ SAMSEEK+3 C 5 
CCW7 TIC | CCH6 — — 
CCHS M/T READ COUNT2 SAMCNTS* CC 8 
CCW READ DATA se Buffer? CI’ss — 
CCN10 M/T READ:COUNT . SAMCNTS* 8 
CCW11 NOP. : — — 1 
WITH ROTATIONAL POSITION SENSING 
Ccws COMMAND CODE. _ ADDRESS FLAGS COUNT 
CCN1 WRITE DATA — Buffer? cio — 
CCN2 READ SECTOR PCCH1+6® CS 1 
CCN3 SET SECTOR PCCW1+6® CS 1 
CCH SEARCH ID EQ IOBSEEK+3 C 5 
CCN5 TIC CCN — — 
CCN6 READ KEY DATA 0. CSK X*'7FFF* 
CCN7 SEEK HEAD? <¢ ° SAMSEEK+1 C 6 
NOP2 | —_ | cs 1 
CCH8 SET SECTOR? SAMSECT cS 1 
CCN9 SEARCH ID EQ? - SAMSEEK+3. C 5 
CCN10 TIC? CCN — — 
CCN11 M/T READ COUNT? SAMCNTS4 8 
CCW12 READ DATA Buffer? CI?ss — 
CCN13 M/T READ COUNT SAMCNTS*  C 8 
CCW14 READ SECTOR ~ SAMSECT S 1 
FLAGS 
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.K = Skip 
I 
Notes: 


Indirect addressing 


a If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 ' The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


3 The M/T read count. CCW is part of the channel program only 
when a previous logic is required. Otherwise, the CCW 
is omitted. 


4‘ The count field used in this CCW is one of the 14 erantceyte 
fields in SAMCNTS Cin the SAMB control block), and i 
different from other SAMCNTS count fields used by Sthee CCWs 
in the channel program. 


5 The SLI flag is set to 1 if the record format is 
variable-length (that is, RECFM=V). The SLI flag is also 
set to 1 if the record format is not fixed-length records 
written as standard blocks CRECFM=FS or RECFM=FBS). 


6 PCCWl is the prolog channel program segment's first CCH, a 
set-sector command. 


7 For buffered DASD, CCWs 8, 9, and 10 will be replaced by the 
following: 


{| CCW3 | LOCATE RECORD | SAMLRPRM+16 | C | 16 | 


Some of the data records of a track-overflow data set are 
written using write special CKD CCNs. Consequently, the 
direct-access device automatically switches to the next track 
and cylinder when the end of each track-overflow record segment 
Cexcept the last) is detected during a write data or read data 
CCW. If the WRITE validity check option is specified and a 
track-overflow data set is being accessed, the update-WRITE with 
refill READ channel program segment is as follows: 


WITHOUT ROTATIONAL POSITION SENSING 





CCWS COMMAND CODE ADDRESS FLAGS COUNT 


CCH1 WRITE DATA Buffer? cz — 
CCH2 SEEK HEAD IOBSEEK+1 5 

NOP2 , CS 1 
-CCH3 SEARCH IDEQ © ~~ ° + IOBSEEK#3 ¢ 5 
CCH4 TIC CCW3 — _ 
CCHS READ KEY DATA 0 CSK = X"7FFF® 
CCN6 SEEK HEAD2 | SAMSEEK+1 c. 6 
CCN7 SEARCH ID EQ: SAMSEEK+3 C 5 
CCHS TIC CCW7 — — 
CCHS | READ KEY DATA2 | 0 CSK X*'7FFF! 
CCH10 M/T READ COUNT? SAMCNTS*  C 8 
CCH11 READ DATA | Buffer? CI?s5  — 
CCW12 M/T READ COUNT SAMCNTS*  C 8 
CCH13 NOP i — — 1 





LY26-3967-0 © Copyrisht IBM Corp. 1977,1985 Appendix A 267 


Contains Restricted Materials of IBM 
Licensed Materials -— Property of IBM 


WITH ROTATIONAL POSITION SENSING 





CCHF COMMAND CODE ADDRESS FLAGS COUNT 

CCH1 WRITE DATA Buffer? CI? — 

CCN2 SEEK HEAD4 IOBSEEK+1 Cc 6 

NOP= —_ cs 1 

CCN3 SET SECTOR PCCNt6 ® cs ] 

CCN4 SEARCH ID EQ IOBSEEK+3 Cc 5 

CCN5 TIC | | CCN4 —_ —_ 

CCN6 READ KEY DATA 0 CSK X*7FFF* 

CCN7 SEEK HEAD< SAMSEEK+#] Cc 6 

NOP@ — cS 1 

CCN8 SET SECTOR | SAMSECT CS l 

CCN9 SEARCH ID EQ SAMSEEKt3 Cc 5 

CCW10 TIC CCW9 — — 

CCW11 READ KEY DATA? 0 CSK X*7FFF* 

CCNI2 M/T READ COUNT? | SAMCNTS* Cc 8 

CCWN13 READ DATA Buffer? cIis5 — 

CCW14 M/T READ COUNT SAMCNTS* Cc 8 

CCN15 READ SECTOR SAMSECT S 1 

FLAGS 

C = Chain command 

S$ = SLI 

K = Skip 

I = Indirect addressing 

Notes: 

i If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 

é The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 

3s The read key data and M/T read count. CCWs are part of the 
channel program only when search previous logic is required. 
Otherwise, these two CCWs are omitted. 

4 The count field used in this CCN is one of the 14 eight-byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program. 

3 The SLI flag is set to l if the record format is 
variable-length (that is, RECFM=V). 

6 PCCWl is the prolog channel program segment's first CCN, a 
set sector command. 

, PU | afalatity ROGRAW GME wv Witte OUTF nN ORD ale FAT il! RACK OVERFLOh 
The output channel program segment is built to serve a request 
that writes an output record to a data set that is not a 
track-overflow data set. Output channel program segments can be 
chained together to write successive records to the data set. 
The output channel program segment is built by the CCWBLDOP 
routine Cin module IGGO19BX). 
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If the write validity check option is not specified, the output 
channel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 





CCWS COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE CKD SAMCNTS? CD 8 
CCN2 Buffer é cIé —_ 

CCW3 NOP —_ S 1 


WITH ROTATIONAL POSITION SENSING 








CCWS COMMAND CODE ADDRESS FLAGS COUNT 
ccHl WRITE CKD SAMCNTS? CD 8 
CCH3 «READ SECTOR samsecT oS) 
FLAGS 

C = Chain command 

S = SLI 

D = Chain data 

I = Indirect addressing 


Note: 


i The count field used in this CCW is one of the 14 eight-byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program (unless otherwise noted). 


If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


If the WRITE validity check option is specified, the output 
channel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 





CCW? COMMAND CODE ADDRESS FLAGS COUNT 
CCW WRITE CKD SAMCNTS? CD 8 

CCW2 Buffer? cI= — 

CCWS3 SEARCH ID EQ SAMCNTS4 C 5 

CCN4 TIC CCWS — — 
CCW5 READ KEY DATA 0 CSK X*7FFF* 
CCIN6 NOP = S 1 
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WITH ROTATIONAL POSITION SENSING 


CCW COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE CKD SAMCNTS? CD 8 

CCW2 Buffer? cIé — 

CCW3 READ SECTOR SAMSECT cS ] 

CCNG SET SECTOR SAMSECT cs 1 

CCW5 SEARCH ID EQ SAMCNTS? Cc 5 

CCH6 TIc CCWS5 a — 
CCW7 READ KEY DATA 0 CSK X*7FFF* 
CCW8 READ SECTOR SAMSECT S 1 





WITH BUFFERRED DASD 





CCNS COMMAND CODE ADDRESS FLAGS COUNT 

CCW WRITE CKD SAMCNTS2 — CD 8 

e e e BUFFER CI — 

@ & ® e 8 

e e e e : ® : 

CCWn CMT] WRITE CKD SAMCNTS? CD 8 
BUFFER CI —_ 

CCWn READ SECTOR SAMSECT S l 

CCWn LOCATE RECORD SAMLRPRM+16 C 16 

CCWn [MT] READ KEY DATA . 0 CSK X"*7FFF® 

® @ @ ® @ 

@ e @ e e 

e @ e @ @ 

CCNn [MT] READ KEY DATA 0 SK X*7FFF® 

FLAGS 

C = Chain command 

S$ = SLI 

K = Skip — 

D = Chain data 

I = Indirect addressing 


Notes: 


a The count field used in this CCW is one of the 14 or byte 
fields in SAMCNTS Cin the SAMB control block), and i 
different from other SAMCNTS count fields used by sthar CCWs 
in the channel program Cunless otherwise noted). 


If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


3 The SAMCNTS field is the same one used by CCWl, the first 
CCW in the channel program segment. 


The preceding output channel program segments can be chained 
together to write successive records all on one track. The last 
CCN (that is, the NOP or read sector CCN) of each channel 


program segment except the last is omitted: 
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CCW? COMMAND CODE ADDRESS FLAGS COUNT 
CCW1 WRITE CKD SAMCNTS CD 8 Write first record 
CCW2 Buffer? cI? — 
CCW3 WRITE CKD SAMCNTS+8 CD 8 Write second 
record 
CCNG Buffer? CI? — 
CCNW9. WRITE CKD SAMCNTS+32 CD 8 Write last record 
CCW10 Buffer? cI? — 
CCW11 NOP@ —_ $ 1 
READ SECTOR@ SAMSECT S 1 
FLAGS 
C = Chain command 
S$ = SLI 
D = Chain data 
I = Indirect addressing 
Notes: 


If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


The read sector CCN is present if the device includes the 
palatal position sensing feature. Otherwise, the NOP CCW 
is present. 


If the second (Cor subsequent) record is to be written as record 
Rl on the next track, a multitrack search CCW orients the 
channel program: 





CCW COMMAND CODE 
CCW WRITE CKD 
CCW3* M/T SRCH ID EQ 


TIC 
CCN5 WRITE CKD 


CCH11 WRITE CKD 


CCW13 NOP¢ 
READ SECTOR? 


ADDRESS FLAGS COUNT 

SAMCNTS CD 8 Write first record 
Buffer? cI? — 

SAMCNTS+8* C 5 Locate record 0 of 


the next track 


CCW3 
SAMCNTS+16 CD 


< 


Write second 
record 
Buffer? CI? — 
SAMCNTS+40 CD 8 Write last record 
Buffer? cI? — 


SAMSECT 3 


FLAGS 
C = Chain command 
= SLI 
Chain data 


S 
D= 
I 


Indirect addressing 
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Notes: 


3 If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 The field in SAMCNTS contains the CCHHR of the record to be 
written Crecord Rl) with R set to 0, causing a search for 
record zero on the next track. 


3s The read sector CCW is present if the device includes the 
A Bohl a position sensing feature. Otherwise, the NOP CCW 
is presen 


4 CCN3 and CCWG are present only when writing record Rl on a 
track when the record is not the first record written in the 
channel program. 


UTPUT_ C EL. PROGRAM SEGMENT (TO WRITE TRACK OVERFLOW RECORDS 


The output channel program segment is built to serve a request 
that writes a record to a track-overflow data set. If the 
track-overflow record is segmented, output channel program 
poate are chained together to write all segments of the 
record. 


Module IGG019T2 determines whether enough room remains on the 
track to write the record. If not, IGG019T2 separates the 
track-overflow record into segments and determines the length of 
each segment. IGG019T2 also determines whether the 
track-overflow record can be written in the extent's remaining 
space. 


Only one output record is written at a time, even though many 
output channel program segments are chained together to write 
all track overflow segments of the record. The track-overflow 
record output channel program is built by the CCWBLDOT routine 
Cin module IGGO19BX). 


If the record does not overflow to another track (that is, it 
fits entirely on the remaining space on the track) and the WRITE 
validity check option is not specified, the output channel 
program segment that writes the record is the same as described 
previously for writing output records that are not 
track-overflow records. 


If the record does not overflow and the WRITE validity option is 
shiteacta Raped the output channel program segment that writes the 
record is: 


WITHOUT ROTATIONAL POSITION SENSING 





CCHS COMMAND ‘CODE ADDRESS FLAGS COUNT 


CCW1 WRITE CKD SAMCNTS CD 8 
CCN2 Buffer? CI? —_ 
CCN3 SEEK HEAD? SAMCNTS2 Cc 6 

NoP2 — Cc 1 
CCN4 SEARCH ID EQ SAMCNTS? Cc 5 
CCN5 TIC CCN4 — —_ 
CCH6 READ KEY DATA 0 CSK X'7FFF* 
CCW7 NOP — $ 1 
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WITH ROTATIONAL POSITION SENSING 





CCHS COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE CKD SAMCNTS CD 8 
CCW2 Buffer? cI? —_— 
CCW3 SEEK HEAD@ SAMCNTS2 Cc 6 
NOP= — Cc 1 
CCNG SET SECTOR CCN4+6 cS Sector*]1 
CCN5 SEARCH ID E@ SAMCNTS4 Cc 5 
CCH6 TIC CCN5 —_ — 
CCN7 READ KEY DATA 0 ao Se 


CCWS8 READ SECTOR | SAMSECT 





Notes and Flags explanation follow: 
FLAGS 

= Chain command 

= SLI 

Skip 

Chain data 


Oo KR YW OC 
$3 


Indirect addressing 
Notes: 


a If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks Calthough it has no 
effect in this case), the record doesn't overflow to another 
chan plata the seek head command is replaced with a 

comman 


3 The SAMCNTS field is the same one used by the first 
segment's Write CCW (CCW). 


4 The sector value is placed in the first byte of the CCW's 
count field. The sector value is the SAMSECT value if the 
first overflow record is written by this channel program. 
Otherwise, the sector value is 0. 


If the track-overflow record consists of more than one segment 
(that is, it overflows to another track), one or more write 
special CKD CCNs are used to write the record. When the end of 
a record written with a, write:special CKD CCW is read, the 
direct-access device automatically switches to the next track or 
cylinder so that the entire .record is read with one READ CCW. 


The first write special CKD CCW writes the record's count field 
and data on the remainder of the track: the track contains the 
record's first overflow segment. An M/T (multitrack) search ID 
equal CCW orients the channel program to the start of the next 
track or cylinder (that is, immediately after the count field of 
record 0). Subsequent write special CKD CCWs write 
track-overflow record segments that occupy the entire track. 

The record's last segment is written with a write CKD CCW, and 
occupies the first part of the track. 


If the WRITE validity option has been specified, a seek head 
CCW, a set sector CCN, and a search ID equal CCW reposition the | 
direct~-access device to read the record's first overflow 
segment. Because the overflow segments are written using write 
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special CKD CCHs, the WRITE validity's read key data CCW reads 
all segments of the record: 
automatically switches tracks and cylinders when the end of each 


The d 
Note t 


direct-access device 


hat the record's last segment 


is not an overflow segment and does not cause track switching. 


Before this channel program is built and issued, 


IGG019T2 has 


determined that the entire record can fit in the space available 


(that 


is, it can fit ‘in the extent). 
record cannot fit in the extent,: 


When the track-overflow 
IGGO019T2 directs the CCWBLDOT 


routine to build a -channel Pda identical to the one shown 
below, except that all write special CKD and write CKD CCWs are 


replaced with erase CCWs. 


IGG019T2 waits until the ERASE 


channel program completes, then lecates the data set's next 


extent. 


It next recalculates the length of each track-overflow 


segment to be written and directs the CCWBLDOT routine to build 
a channel program ee writes the complete record. 





CCS 
CCW 


CCW2 
CCW3 


CCNG 
CCWS5 
CCWN6 
CCW15 
CCW16 
CCW17 
CCH18 
CCW192 


CCN20 
CCW212 
CCW222 
CCW23¢ 


CCW24 


COMMAND CODE 


WRITE SPCL CKD 


M/T SRCH ID EQ 


TIC 
WRITE SPCL CKD 


M/7T SRCH ID EQ 


TIC 
WRITE CKD 
SEEK HEAD 


SET SECTOR‘ 
SEARCH ID EQ 


TIC 

READ KEY DATA 
READ SECTOR‘ 
NOP? 


ADDRESS 
SAMCNTS 


Buffer? 
SANCNTS 


CCH3. 
SAMCNTS | 


Buffer? 


SAMCNTS+32 


CCW15 
SAMCNTS+#32 
Buffer? 
SAMCNTS4 


CCN4+6 
SAMCNTS2 
aie 


SAMSECT 


FLAGS 
cD 
cI? 
C 


COUNT 


0° 


3 ’ 


oy 


>| 


Sector |? 
5 


X*7FFFS 


l 
1 


Write record's first 
overflow segment. 


Switch to next 


track. 


Write record's 
second overflow 
segment. 


Switch to next 
track. 


Write record's last 
segment. 


Reposition to 


record's first 
segment. 


Write validity 
check. 





FLAGS 

C = Chain command. 

S = SLI 

D = Chain data 

I = Indirect address 
Notes: 


| 
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ang 


If the data. set Sesiides on a VIO device or af the user'* 
buffer is in’a V=R address space, the address field ahi aane 
the virtual-storage buffer address and no IDA flag is set. 

Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


CCW19 through CCN23 are included in the channel program when 


the write validity check option is specified. 


CCN19 through CCN23 are omitted. 


Otherwise, 
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3 The SAMCNTS field is the same one used by the first write 
CCW CCCWL)D. 


4 The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise, CCW20 is 
omitted and is not replaced with a NOP CCW, and CCN24 is 
replaced with a NOP CCW. . 


5 The sector value is placed in the first byte of the CCW's 
count field.: The sector value is the SAMSECT value if the 
first overflow record is written by this channel program. 
Otherwise, the sector value is 0. 


INPUT CHANNEL PROGRAM SEGMENT 


The input channel program segment is built to serve a request to 
read all segments of a record. The channel program segment 
reads records of data sets opened for UPDAT, INPUT, INOUT, and 
OUTIN processing. Input channel program segments can be chained 
together to read more than 1 record. The input channel program 
segment is built by the CCWBLDIP routine Cin module I1GG019BX). 
Note: The prolog channel program segment issues a search ID EQ 
CCW to orient to either: 


9 The record to be read, or 


° The record immediately preceding the record to be read 
Csearch previous logic). 


When the prolog' s search CCW locates the record to be read, 
the input channel program segment is: 


CCws ‘COMMAND CODE ADDRESS FLAGS COUNT 

CCHl READ DATA? Buffer? clI?s? — 

CCN2 M/T READ COUNT* SAMCNTS5 Cc 8 

CCN3 READ SECTOR® SAMSECT S 1 
NOP® — S 1 

FLAGS 

C = Chain command 

S = SLI 

I = Indirect addressing 


Notes: 


3 If the record has a key area and the key is to be read (BSAM 
Bean read key data CCW is: used instead of the read 
ata ; 


2 If the data set resides on a VIO device or if the user' 
buffer is in a V=R address space, the address field pontaina 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


s The SLI flag is set to 1 if the record format is 
alla ng i ba (that is, RECFM=V). The SLI flag is also 
se o if: 


e The record format is not fixed-length records written as 
standard blocks (CRECFM=FS or RECFM=FBS), and 


¢ The data set is not a track-overflow data set (RECFM=T). 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 Appendix A 275 


Contains Restricted Materials of IBM 
Licensed Materials — Property of IBM 


 CCW2 and CCW3 read the count field and the sector value of 


_the next sequential record. (The next record might be on 


the same track, or it might be record 1 on the next track, 


next cylinder, or next extent.) When the user's program 


requests the next input record, the prolog's search CCW can 
locate it-—-minimizing the number of times search-previous 


-logic is required. 


The count field used in this CCW is one of the 14 Sat byte 
fields in SAMCNTS Cin the SAMB control block), and i 

different from other SAMCNTS count fields used by Sthek CCHs 
in the channel program. 


The read sector CCW is present if the device includes the 
Atisahh asa position sensing feature. Otherwise, the NOP CCW 
is presen 


When the prolog's search CCW locates the record immediately 
preceding the record to be read and the data set being accessed 
is Dora sees overnnow data set, the input channel program 
segment is: 


CCHS COMMAND CODE ADDRESS FLAGS COUNT 

CCWl1 M/T READ COUNT SAMCNTS2 Cc 8 

CCN2 READ DATA Buffer cI*s* — 

CCN3 M/T READ COUNTS SAMCNTS2 Cc 8 

CCN4 READ SECTOR® SAMSECT $ l 
NOP —_— Ss I 

FLAGS 

C = Chain command 

S$ = SLI 

I = Indirect addressing 

Notes: | 
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The count field used in this CCW if one of the 14 eight-byte 
fields in SAMCNTS Cin the SAMB control block), and is 


different from other SAMCNTS count fields used by other CCWs 


in. the channel program. 


If the record has a key area and the key is to be read (BSAM 
Sears read key data CCW is used instead of the read 
ata : | 


If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address, field contains the address of an IDA 
list and the. IDA, flag is set. 


The SLI flag is set to 1 if the record format is 
variable-length (that is, RECFM=V). The SLI flag is also 
set to 1 if the record format is not fixed-length records 
written as standard blocks (RECFM=FS). 


CCN3 reads the count field of the next sequential record. 
(The next record might be on the same track, or it might be 
record one on the next track, next cylinder, or next 
extent.) When the user's program requests the next input 
record, the prolog's search CCW can locate it-—minimizing 
the number of times search-previous logic is required. 


The read sector CCW is present if the device includes the 


rotational position sensing feature. Otherwise, the NOP CCH 
is present. 
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Some of the data records of a track-overflow data set are 
written using write special CKD CCWs. Consequently, the 
direct-access device automatically switches to the next track 
and cylinder when the end of each track-overflow record segment 
is read with a read data or read key data CCN. When the 
prolog's search CCW locates the record immediately preceding the 
required record (that is, search-previous logic is used) and a 
Seach ever oN data set is being read, the input channel program 
segment is: 





CCW COMMAND CODE ADDRESS FLAGS COUNT 
CCWl READ KEY DATA 0 CSK X*7FFF® 
CCW2 M/T READ COUNT SAMCNTS? C 8 
CCHS READ DATA? Buffer® crss* — 
CCW4 M/T READ COUNTS SAMCNTS? C 8 
CCW5 READ SECTOR® SAMSECT 3 I 

NOP® — $s 1 
FLAGS 


C = Chain command 


S$ = SLI 
K = Skip 
I = Indirect addressing 


Notes: 


i The count field used in this CCW is one of the 14 Spaerey re 
fields in SAMCNTS Cin the SAMB control block), and i 
different from other SAMCNTS count fields used by Sther CCWs 
in the channel program. — 


2 If the record has a key area and the key is to be read (BSAM 
hee ea read key data CCH is used instead of the read 
ata 


3 If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


- The SLI flag is set to 1 if the record format is variable 
length (that is, RECFM=V). 


5 CCNG reads the count field of the next sequential record. 
(The next record might be on the same track, or it might be 
record one on the next track, next cylinder, or next 
extent.) When the user's program requests the next input 
record, the proliog's search CCW can locate it—minimizing 
the number of times search-previous logic is required. 


6 The read sector CCW is present if the device includes the 
Bdeeahee ates position sensing feature. Otherwise, the NOP CCW 
is present. 


An example of a channel program that reads five records when 
search-previous logic is required to locate the first record is: 
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DATA SET INCLUDES THE TRACK-OVERFLOW OPTION 





CCWS COMMAND CODE ADDRESS FLAGS COUNT 

CCWl READ KEY DATA 0 CSK X'7FFF® Search previous 
track to locate 
first record. 

CCN2 M/T READ COUNT SAMCNTS Cc 8 

CCWN3 READ DATA? Buffer? c1*s? — Read first record. 

CCN4 M/T READ COUNT SAMCNTS+8 C 8 

CCH5 READ DATA! Buffer crs? — Read second record. 

CCW6 M/T READ COUNT SAMCNTS+#+16 Cc x 

CCW11 READ DATA Buffer? ci*#s*? — Read last record. 

CCN12 M/T READ COUNT SAMCNTS+?+40 Cc 8 

CCW13 READ SECTOR* SAMSECT Ss l 

NOP — S 1 
DATA SET DOESN'T INCLUDE THE TRACK-OVERFLOW OPTION 





CCWR COMMAND CODE ADDRESS FLAGS COUNT 

CCW1 M/T READ COUNT SAMCNTS Cc 8 Locate and read 

first record. 

CCW2 READ DATA? Buffer c1*s+ — 

CCN3 M/T READ COUNT SAMCNTS+8 Cc 8 

CCN4 READ DATA Buffer? c1*s? — Read second record. 

CCH5 M/7T READ COUNT SAMCNTS+16 Cc 8 

CCH10 READ DATA? Buffer cI2s3 — Read last record. 

CCW1l1 M/T READ COUNTS SAMCNTS+40 Cc 8 

CCW13 READ SECTOR‘ SAMSECT BS) l 

NOP“ — 1 

FLAGS 

C = Chain command 

S$ = SLI 

K = Skip 

I = Indirect addressing 

Notes: 

i If the record has a key area and the key is to be read (BSAM only), the read key 
data CCW is used instead of the read data CCW. 

é If the data set resides on a VIO device or if the user's buffer is in a V=R 
address space, the address field contains the virtual-storage buffer address and 
no IDA flag is set. Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 

3 The SLI flag is set to 1 if the record format is variable length (that is, 
RECFM=V). When the record format is not variable length, the SLI flag is also 
set to l if: 

e The record format is not fixed-length records written as standard blocks 
CRECFM=FS or RECFM=FBS), and 
e The data set is not a track-overflow data set CRECFM=T). 

4 The read sector CCW is present if the device includes the rotational position 
sensing feature. Otherwise, the NOP CCW is present. 
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3 Each M/T read count CCW reads the count field of the next sequential record. 
(The next record might be on the same track, or it might be record one on the 
next track, next cylinder, or next extent.) When the user's program requests 
the next input record, the prolog's search CCW can locate it—minimizing the 
number of times search-previous logic is required. 


When the BFTEK=R option is specified to read a BDAM data set and search-previous 
logic is required, an input channel program segment is built to read only the 
record's count field (needed for offset READ processing). This channel program 
segment is not chained to another input channel program segment. 


Ccws COMMAND CODE ADDRESS FLAGS COUNT 

CCWl M/T READ COUNT SAMCNTS Cc 8 

CCW2 READ SECTOR? SAMSECT BS) l 
NOP? — S l 

FLAGS 

C = Chain command 

S = SLI 

Note: 


i The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise, the NOP CCW 
is present. 
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APPENDIX B. BSAM (BDAM CREATE) CHANNNEL PROGRANS 


Channel Program for Erase CCWs for BSAM Load Mode, Track Overflow (1GG0191M) 
WITHOUT ROTATIONAL POSITION SENSING 





CCWS COMMAND CODE ADDRESS FLAGS COUNT 
ccwl! SCH ID EQ CCW10 Cc 5 
CCW2 TIC | X-8 

CCHS WRT DATA CCN10 CS 7 
CCH4 SCH ID EQ CCW10 C 5 
CCW5 TIC ¥-8 

CCN6 RD DATA | CSK 8 
CCW7 ERASE CCW7 CS 8 
CCN8 M/7T RD HA C 5 
CCN9 TIC CCW 

CCW10 RO ADDR = CCHHO0000 








CCW COMMAND CODE ADDRESS FLAGS COUNT 
CCW1? SET SECTOR SECTOR=0 Cc l 
CCN2 SRCH ID EQ CCW13 C 5 
CCN3 TIC ¥~-8 

CCNG WRT DATA | CCW13 cs 7 
CCN5 SET SECTOR SECTOR=0 Cc 1 
CCN6 SCH ID EQ | CCW13 Cc 5 
CCWN7 TIC ¥-8 

CCN8 RD DATA CSK 8 
CCNI ERASE CCW9 cs 8 
CCH10 SET SECTOR SECTOR=0 Cc 1 
CCHil M/T RD HA Cc 5 
CCW12 TIC CCWl 

CCN13 RO ADDR CCHHO000 

FLAGS 

C = Command Chain 

S$ = SLI 

K = Skip 

Note: 


3 Address of CCWl is stored in DCBEOBW. 
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Channel Program for BSAM Load Mode, Track Overflow (IGG0191M) 
WITHOUT ROTATIONAL POSITION SENSING 





CCws COMMAND CODE ADDRESS FLAGS COUNT 

CCW1l SCH ID EQ IOBSEEK.+3. Cc 5 

CCW2 TIC x- | 

Str WRT CKD IOBDNRCF(1) D 8 

CCW5? TIC/NOP2 CCWH20 cs CCH20 

CCN6 SCH ID EQ IOBROCNTC1) Cc 5 

CCHI7 TIC xX=-8 

CCHS WRT DATA TOBRODATC1) Cc 8 

ccw9 READ RO SK 16 

CcCW104 M/T SCH ID EQ IOBROCNT( 2) C 

CCWil TIC X-3 

St Es WRT CKD IOBDNRCFC 2) D g 

CCW14? TIC/NOP@ CCW19 cs CCW19 

CCW15 SCH ID EQ IOBROCNT (2) Cc 5 

CCW16 TIC x-8 

CCW17 WRT DATA TOBRODATC2) Cc 8 

Ccw182 READ RO CWRITE SK 16 

CHECK) 

CCW19 SEEK CYL IOBSEEK.+1. Cc 6 

CCW20 SCH ID EQ IOBDNRCFC1) Cc 5 

CCW21 TIC ¥=-8 

CCN22 RD KD SK KL+DL 

FLAGS 

D = Data Chain 

C = Command Chain 

S$ = SLI 

K = Skip 

Notes: 

i CCWs 5, 9, 14, and 18 are omitted if verify is not 
speci fied. 


2 The TIC/NOP at CCW5 and CCW14 is set to NOP if Record 0 is 
to be written on this track. 


é CCNs 10 through 18 are repeated as many times as are needed 
to write all segments. 
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Channel Program for Create BDAM (IGGO199L) 
WITHOUT ROTATIONAL POSITION SENSING 


CCWS COMMAND CODE — ADDRESS 


FLAGS COUNT 


C 


5 


8 
K+BLKSIZE. 
5 

256 

5 


Com (9300 





CCWl1 SCH ID EQ IOBSEEK+3 
CCW2 TIC X-§ 
CCH3 WRT CKD IOBDNRCF 
CCN4 WRT CKD CWRITE 

; CHECK)? 
CCW5 SCH ID EQ IOBDNRCF 
CCHI6 TIC ¥-8 
CCW7 RD KD 
CCW8 SCH ID EQ IOBROCNT 
CCW9 TIC X-8 
CCW10 WRT DATA IOBRODAT 
CCW1l1 SCH ID EQé IOBROCNT 
CCN12 TIC xX-§ 
CCN13 RD DATA 
CCH14 ERASES x 
FLAGS 
D = Data Chain 
C = Command Chain 
S$ = SLI 
K = Skip 
Notes: 


I CCWs 5 through 7 are omitted if write check is not 


specified. 


é CCWs 11 through 13 are always generated for format-U and 


format-V records, or if write check is specified. 


3 CCW14 is generated for format-U and format-V records only. 
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Channel Program for Create BDAM (IGG0199L) 
WITH ROTATIONAL POSITION SENSING 





CCV = COMMAND CODE ADDRESS FLAGS COUNT 

CCW] SET SECTOR SECTORI Cc l 

CCN2 SCH ID EQ IOBSEEK+3 Cc 5 

CCN3 TIC XB 

CCNS4 WRT CKD IOBDNRCF D 8 

CCW5 WRT CKD Cc KL+BLKSIZE 

CCN6 RD SECTOR CWRITE SECTOR2 C l 

CHECK) 2 

CCW7 SET SECTOR SECTOR2 C l 

CCN8 SCH ID EQ IOBDNRCF C 5 

CCN9 TIC X-§8 

CCW10 RD KD CSK 256 

CCWl1l SET SECTOR SECTOR=0 Cc 1 

CCW12 SCH ID EQ IOBROCNT C 5 

CCW13 TIC ¥=8 

CCW14 WRT DATA IOBRODAT C 8 

CCW15 SET SECTOR? SECTOR2 C 1 

CCW16 SCH ID EQ IOBROCNT C 5 

CCW17 TIC ¥-8 

CCH18 RD DATA CSK 1 

CCW19 ERASE? ¥ S 8 

FLAGS 

D = Data Chain 

C = Command Chain 

S$ = SLI 

K = Skip 

Notes: 

i =6 CCWs 7 through 10 are omitted if write check is not 
specified. 


é CCWs 15 through 18 are always generated for format-V and 
format-U records or if write check is specified. 


3s CCH19 is generated for format-U and format-V records only. 
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Channel Program for BSAM Load Mode, Track Overfiow (I1GG0199M) 


WITH ROTATIONAL POSITION SENSING 





CCWS COMMAND CODE ADDRESS FLAGS COUNT 
CCWl SET SECTOR SECTORI1 Cc 1 
CCN2 SCH ID EQ IOBSEEK+3 Cc 5 
CCN3 TIC ¥=-8 

CCNG WRT CKD IOBDNRCFC(1) D 8 
CCH5 00 

CCH6?* TIC/NOP2 CCN24 CS CCN24 
CCW? SET SECTOR SECTOR=0 Cc l 
CCN8 SCH ID EQ IOBROCNTC1) C 5 
CCW9 TIC X~Z 

CCH10 WRT DATA IOBRODAT(C1) Cc 8 
CCW11 SET SECTOR SECTOR=0 Cc 1 
CCW12 READ RO SK 16 
CCH13 M/T SCH ID EQ IOBROCNTC2) C 5 
CCWN14 TIC ¥=-8 

oat WRT CKD IOBDNRCFC( 2) D 8 
CCW17 2 TIC/NOP* CCN24 CS CCN24 
CCW18 SET SECTOR SECTOR=0 Cc l 
CCH19 SCH ID EQ TOBROCNT C2) Cc 5 
CCN20 TIC = 

CCN21 WRT DATA IOBRODATC( 2) Cc 8 
CCN22 SET SECTOR SECTOR=0 Cc 1 
CCH23 READ RO SK 16 
CCWN24 RD SECTOR SECTOR2 Cc l 
CCN25 SEEK CYL IOBSEEK+1 C 6 
CCW26 SET SECTOR SECTOR1 C 1 
CCN27 SCH ID EQ IOBDNRCFC(1) Cc 5 
CCN28 TIC X~Z 

CCN29 RD KD SK KL*DL 
FLAGS 

D = Data Chain 

C = Command Chain 

S$ = SLI 

K = Skip 

Notes: 


i CCWs 11, 12, 22, 23, and 25 through 29 are omitted if verify 
is not specified. 


2 The TIC/NOP at CCW6 and CCW17 is set to NOP if Record 0 is 
to be written on this track. 
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INDEX 


[a] 


ABEND codes cross-reference table 246 
abnormal-end appendages 94 
access conditions for selecting modules 
See module selector 
access method options 
See module selector 
access method save area for user 
totaling 241 
address conversion routines 
full-to-relative address 162 
relative-to-full address 162 
ANS control character 
See control character 
ANSI 
See also ISO/ANSI 
and BUFFOF=L not specified 137 
appendages 
introduction to 68 
module selector 72 
types 
abnormal-end 94 
channel-end 82-94 
EXCPVR Processing 73 
Pagefix 
PCI 
S10 70 
appendixes 
See Contents 
ASCII block prefix 3 
associated data set processing 
See also 3505/3525 
EOB modules 49 
associated data set processing, EOB 
modules 
See 350573525 
asynchronous-—error-processing routines 
track overflow 7 
3211 Printer 67 


backspace 
BSP routine 157 

basic partitioned access method 
See B 

basic sequential access method 


See BSAM 
BDAM-create (CWRITE-load) 
CHECK routines 109 
stage 2 OPEN executors 128 
Write modules 97 
BDW Cblock descriptor word) 35-37 
BLDL or FIND routines 
general description 16] 
in TRR 
block descriptor word (BDWN) 35-37 
block prefix, ASCII 3 
blocked records 
GET routines 
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Simple-buffering 3 
update-mode (PUTX) 20 

PUT routines 
Simple-buffering 27 
update-mode (PUTX) 38 

BPAM 

description of routines 116 

flow of control 

introduction to 1, 116 

relation to BSAM routines 1, 116 

Bo a to processing program 1, 


residence oF 117 
routines 
convert ° MBBCCHRR 122, 162 
convert TTR 122, 162 
FIND 161 
STON 158 
BSAM 


control blocks 242 
flow of control 196 
introduction to 1, 9? 
module selector for 
appendages 68 
Check 106 
Control 1908 
overview 187 
Read 98 
Write 98 
routines 
appendages 157 
Check 
Control 110 
end-of-block 38 
Read 97 
synchronizing-and-error 
percent gare 
BSAM/QSAM channel programs 
g eRpene ys B) 26] 


BSAM overview 187 
routine 7 

buffer alignment 148 

buffer empty (GET routines) 
simple~buffering 3 
update-mode 20 

buffer pool management 
FREEBUF Cmacro expansion) 150 
FREEPOOL (macro expansion) 150 
GETBUF Cmacro expansion) 150 
GETPOOL routine 
introduction 1, 148 

buffer ready for emptying (PUT routines) 
simple buffering 
update mode, PUTX 20, 38 

buffering techniques 
GET routines 3 
PUT routines 27 

BUILD 
buffer pool management routine 148 
common access method routine 

BUILDRCD 
buffer pool management routine 150 
QSAM overview 
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card punch, 3525 
See 350573525 
card reader 8 
See also 350573525 
GET routines 10 
chained channel-program scheduling 
appendages 
PCI, channel end, abnormal 94 
end-of-block routines 135 
IOB prefix 49 
joining 
description of end-of~block 
routines 
introduction to 49 
Note/POINT routines 114 
parting (disconnecting) 94 
stage 2 OPEN executors 128 
stage 3 OPEN executors 135 
channel programs 
BSAM/QSAM CAppendix B) 261 
update CAppendix C) 280 
channel-end appendages 82 
character conversion 
See paper tape character conversion 
routines 
CHECK macro instruction 
BSAM/BPAM 189 
Check modules 107 
CHECK routines 
BSAM/BPAM 189 
descriptions 106 
CLOSE executors 14] 
CLOSE macro instruction 
SAM overview 
CNTRL macro instruction 
BSAM control routines 110 
QSAM control routines 95 
common routines 
appendages 68 
buffer pool management 148 
executors 118 
SAM overview 187 
control blocks, relation of 
BSAM 
QSAM 242 
control character, end-of-block routines 
chained scheduling 47 
normal scheduling 40 
control modules 
selected and loaded by OPEN 
executor 9 
Control routines 
BSAM 110 
QSAM 95 
convert full-to-relative address 
routine 
convert record number to sector value 
routine 162 
convert relative-to-full address 
routine 
create-BDAM 
See BDAM-create 
cross-reference table, ABEND codes 246 
CSECT names Cas listed in the 
directory) 206 
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[> ] 


data areas 
access method save area 
for user totaling 241 
BSAM control blocks 242 
QSAM control blocks 242 
data operating mode 
Get module 5, 18 
Put module 27, 35 
data protection image, DPI 48 
See also 3505/3525 
EOB modules 40 
DCB relocation to protected work 
area 
decision tables 
See module selector 
DEVTYPE SVC routine 
general description 
in TRR 81 
diagrams 187-205 
directory module names 206-208 
DMABCOND macro 
DOS embedded checkpoint records 
See OS/DOS tape compatibility 
DPI, data protection image 48 
See also 3505/3525 
EOB modules 49 
dummy data set routine 117 


Le] 


empty buffer 
GET routines 
simple-buffering 3-19 
update-mode 
PUT routines 
simple-buffering 27 
update-mode, PUTX 21 
end-of-block condition 
See end-of-block routines 
end-of-block routines, QSAM/BSAM 
chained channel-program 
scheduling 47 
flow of control 194 
INOUT or OUTIN 38 
PUT routines 28 
track overflow 57 
EODAD routine 
dummy data set 117 
EOV (Cend-of-volume) routine 
BSAM Flow of Control 199 
erase routine, track overflow 155 
error option implementation 
SYNAD routines ; 
synchronizing and error processing 
routines 
EXCP processing with the 3800 printing 
subsystem (for the 3800 only) 40 
EXCPVR processing 
execution of channel programs 
scheduled by chaining (PCI 
appendage) 
executors, SAM 
control sequence 
Close 141 
OPEN executor 117 
flow of control for Open 190 
introduction to 


150, 154 
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general description 117 
Open 
relation to Open/Close/EOV 
support 117 
executors, SETPRT 
return codes 251 
executors, SETPRT (for the 3800 Printing 
Subsystem only) 168 
selection of (for the 3800 Printing 
Subsystem only) 16 
work area (for the 3800 Printing 
Subsystem only) 218 
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FIND macro instruction 
C option (macro expansion) 161 
D option routine 161 
flow of control, diagrams for 
BPAM routines 
BSAM routines 196 
EOV executors 
BSAM 199 
QSAM 198 
FEOV executor, QSAM 200 
JES Compatibility Interface routines 
general description 
QSAM routines 194 
SAM OPEN executors 191] 
force close executors 146 
forward space 
control module 112 
FREEBUF macro instruction 
BSAM/BPAM 187 
macro expansion 150 
FREEPOOL macro instruction 
macro expansion 150 
SAM overview 187 
full buffer 
GET routines 
Simple-buffering 3 
update-mode 20 
PUT routines | 
See buffer ready for emptying 
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GET macro instruction 
GET routines 
introduction to GET routines 3 
GET routines 
buffering techniques 4 
introduction to 
simple-buffering 4 
update mode 20 
GETBUF macro instruction 
BSAM/BPAM 187 
macro expansion 150 
GETPOOL 
buffer pool management routine 148 
common access method routine 187 
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I/O interruption 

BPAM flow of control 196 

QSAM flow of control 194 

SAM overview 187 
IGGSPW—SETPRT work area (for the 3800 
Printing Subsystem only) 5 
IHASPP-—-SETPRT parameter list (for the 
3800 Printing Subsystem only) 237 
IMGLIB SVC routine 

general description 155 

in TRR 195-197 
INOUT mode 

end-of-block routines 38 

stage 2 OPEN executors 128 
input processing routine, QSAM 19 
IOB Cinput/output block) SAM prefixes 

comparison for normal end 

chained-scheduling 47 

description 
ISO/ANSI/FIPS 

abend 139 

EOB 7, 8 

fixed block format 4 

padding character 11, 12 

segment control word 3, 35, 37 

conyergnon 14, 17, 28, 50, 63, 
spanned record format 3, 14, 17, 18, 
35, 37, 40, 50, 63, 1907 

variable length spanned records 27 

variable spanned record format 132 
ISO/ANSO 

segment control word 

conversion 18, 40 


JES Compatibility Interface Control 
See also SAM-SI 
BSAM processing module (SYSOUT) 110 | 
Check module (SYSIN) 106 
Close processing 20] 
Open processing 20] 
Overview 
QSAM processing module 15 
JES Compatibility Interface Control (See 
also SAM-SI) 203 
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logical record interface 
Get module 
Put module 32 


Index 287 


Le ] 


macro expansion 
FIND (C option) 161 
FREEPOOL 150 


MBBCCHRR, convert address routine 162 
message display module 
module name directory 206 
module selector 
appendages 72 
Check modules 106 
CLOSE executors 141 
Control routines 
BSAM 111 
QSAM/BSAM 95 
end-of-block modules 
chained scheduling 49 
ordinary 
track overflow 57 
error processing modules 67 
Get modules 
update-mode 2] 
OPEN executors 


Put modules 
Simple-buffering 26 
update-mode, PUTX 21 
synchronizing and error processing 
modules 6] 
Write-modules 98 
module selector table 
module type 
(as listed in the directory) 206 
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name (module) directory 206 
new buffer 
See empty buffer PUT routines; full 
buffer GET routines 
new buffer segment (PUT routines) 
Simple-buffering 27 
update-mode (PUTX) 20 
next record (GET routines) 
Simple-buffering 
update-mode 20 
non-rotational position sensing 
indicator 
see rotational position sensing, OPEN 
executors 
NOTE macro instruction 
BSAM control routines 110 
BSAM/BPAM overview 187 
NOTE/POINT routines 
BSAM control routines 1190 
chained scheduling 115 
track overflow 115 
update mode 115 
NOTE, tape, relative addressing 
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OPEN executors, SAM 
for the 3800 Printing Subsystem (for 
the 3800 only) 125 
introduction to 119 
stage 1 119-127 
stage 2 128 
stage 3 135 
OPEN macro instruction 
general flow 190 
SAM overview 187 
OPTCD=J and the 3800 printer (for the 
3800 only) 51 
OPTCD=J and the 3800 printing subsystem 
(for the 3800 only) 42, 43, 51 
OPTCD=Z 
See search direct 
optical mark read 
See 3505/3525 
optional, access method 
See module selector 
OS/DOS tape compatibility 
appendages 
BSAM control routines 112 
GET routines 
synchronizing-and-error processing 
routines 61 
OUTIN mode 
end-of-block routines 38 
stage 2 OPEN executors 128 
overview, SAM 187 
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Pagefix Appendage 70 
parallel data address block 19 
parallel input processing routine 19 
parting chained channel-programs, 
appendage 
PCI appendages 94 
POINT macro instruction 
BSAM control routines 110 
BSAM/BPAM overview 187 
POINT routines 
see Note/POINT routines ; 
POINT, tape, relative addressing 
priming input buffers 
introduction to 
Simple-buffering 5 


update-mode 20 
stage 3 OPEN executor 135 
printer 
see 3211 printer, 1403 printer, or 
350573525 
Printer overflow macro expansion 
CPRTOV) 95 


Problem determination 153 
processing program 

relation to SAM routines 187 

using BPAM routines 116 
program controlled interruption, 
appendages 94 
program organization, diagrams for 

BPAM routines 

BSAM routines 189 

OPEN executors 190 

QSAM routines 188 

SAM routines 187 
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SAM-SI 203 
protected work area, DCB relocation 
to 118 
PRTOV macro instruction 
appendage 
BSAM 110 
end-of-block routines 42 
QSAM 
PUT macro instruction 
introduction to PUT routines 25 
PUT routines 25 
PUT routines 
Simple-buffering 28 
update-mode (PUTX) 38 
PUTX macro instruction 
overview 187 
PUT routines 25 
PUTX routine 
simple-buffering 25 
update mode 
GET routine 21 
PUTX 38 


QSAM 

control blocks 242 

control routines 95 

flow of control 191, 194 

introduction to 1, 

module selector for 
Simple-buffering, Get 7 
Simple-buffering, Put 25 
update-mode, Get 22 
update-mode, PUTX 22 

overview 187 

routines 
appendages 68 
Control 95 
end-of-block 38 
Get 3 
Put 25 
synchronizing-~and-error-processing 

routines 
sens sequential access method 
ee 
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RCE, read column eliminate 
See 350573525 
read column eliminate 
See 350573525 
READ macro instruction 
BSAM/BPAM 189 
Read routines 97 
Read routines 
BSAM/BPAM 189 
descriptions 97 
readback mode, GET routines Ee 10-13 
record descriptor word (RDN) 15, 18 
record number conversion to sector 
value 162 
ELSE macro instruction 
GET routines 
overview 187 
RELSE routines 
description (GET routines) 4 
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Simple-buffering 4 
update mode 
return codes from SETPRT executors 251 
rotational position sensing CRPS) 
appendages 
channel-end 82, 83 
end-of-extent 2 
PCI q 
SIO 79 
channel programs CAppendixes 
B,C,) 61 
GET routines 
update mode 20 
OPEN executors 
introduction 118 
Read/WRITE routines 97 
stage 2 130 
stage 3 134 
RPS ; 
See rotational position sensing 


Ls ] 


SAM 
common routines 
appendages 68 
executors 117 
effect of BLDLTAB 1 
force close executor 146 
introduction to 
overview 187 
eae subsystem interface) 


force close executor 146 

GET routine 

introduction to 1 

PUT routine 33 

synchronizing-and-error- 
processing routine 65, 66 


AM 
CHECK routines 107-110 
Read, WRITE routines 107 
scheduling 
See chained channel-program 
scheduling; end-of-block ee 


‘search direct COPTCD=Z) 


appendages 7/72 > 
channel programs (Appendix B) 261 
stage 1 OPEN executors 
stage 3 OPEN executors 140 
search-previous auxiliary storage 
addressing 20 
seek address in QSAM update mode 21 
segment descriptor word (SDW) 
GET routines 14-19, 25 
PUT routines 36 
sequential access method executors 
See executors, SAM 
aap ity access methods 


e SA 
SETDEV executor 168 
SETPRT 
executors 
return codes 25] 
executors (for the 3800 Printing 
Subsystem only) 
general description 176 
selector (for the 3800 Printing 
Subsystem only) 168 
in TRR 180-185 
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parameter list (for the 3800 Printing 
Subsystem only) 
QSAM/BSAM overview 187 
routines 187-190 
work area, 3800 Printing Subsystem 
area in (for the 3800 Printing 
Subsystem only) 218 
Simple buffering 
GET routines 4 
PUT routines 28 
SIO appendages 70 
space magnetic tape 
BSP routine 157 
Control routine 112 
spanned records 
GET routines 14 
' PUT routines 32 
stage 1 OPEN executors 
descriptions 118 
flow of control 191 
mocule selector 119 
stage 2 OPEN executors 
descriptions 128 
flow of control 192 
module selector 129 
stage 3 OPEN executors 
descriptions 135 
flow of control 193 
module selector 136 
start I/0 (SIO) appendages 70 
STOW routines 8 
in TRR 18l 
SVC routines 
descriptions 154 
directory entries 206 
SYNAD routine, FEOV executor 
QSAM operation for output data 


set 200 
SYNAD/EOV executor 
flow of control Coverview) 
BSAM 7 
198 


QSAM 
SYNADAF/SYNADRLS routines 
general description 163 
in TRR 149, 182 
synchronize tape buffered data 
synchronizing-and-error-processing 
routines 
asynchronous—error-processing 66 
introduction to 9 
QSAM 
track overflow : 
general description . 59 
3211 printer 
asynchronous-error-processing 67 


tape compatibility, OS/DOS 
appendages 5 
Control routines 112 
GET routines 5 
synchronizing-and-error-processing 
routines 
task recovery routines (CTRR) 
SVC 105—IMGLIB 185 
SVC 18-——BLDL or FIND 180 
SVC 21--STOW 181 
SVC 24-—-DEVTYPE 181 
SVC 25—-track overflow erase 181 
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SVC 68——SYNADAF/SYNADRLS 5 
SVC 69——-BSP 183 
SVC 81-—-SETPRT 183 
track balance routine 
general description 155 
in TRR 181 | 
track erase routine 155 
track overflow 
abnormal end appendage 94 
create-BDAM write routine 103 
end-of-block routine 57 
Erase routine 
error processing routine 67 
in TRR 181 
introduction to 57 
stage 2 OPEN executors 129, 131 
TRUNC macro instruction 
overview 187 
PUT routines 28 
TRUNC routines 
description (PUT routines) 29 
simple-~buffering 


28 
TTR, convert address routine 162 
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UCS feature, printer 
stage OPEN executors 119 
unblocked records 
GET routines | 
Simple-buffering 4-5 
update mode 
PUT routines 
Simple-buffering 27 
universal character set 
See UCS feature, printer : 
update channel programs (Appendix 
C) 280 
update mode 
appendages 
end-of-extent 68 
SIO 78-79 
CHECK routine 108 
GET routines 20 
Note/POINT routine 115 
PUTX routine 3 
Read/WRITE routine 100 
schedule buffer Cempty-and-refill or 
refill only) 20-22 
stage 2 OPEN executors 130 
stage 3 OPEN executors 1356 
synchronizing routine 61 
user totaling facility 
end-of-block modules 57 
stage 1 OPEN executors 119 
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WRITE macro instruction 
BSAM/BPAM 189 
WRITE routines 97 
WRITE routines 
BSAM/BPAM 189 
descriptions 97 
WRITE-load 
See BDAM-create 
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1403 Printer 
OPEN executor, stage 1 119 
2540 card read punch 
consideration of DCBBUFNO field 125 
3211 Printer. 
asynchronous-error-processing 
module 
OPEN executor, stage 1 119 
OPEN executor, stage 3 138 
synchronizing module 64 
3505/3525 Ceard reader, card punch) 
CLOSE executors 143 
control routine 96 
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line control 96 
OPEN executor, stage 1 119 
OPEN executor, stage 2 129, 133 
print CEOB module) 44 
3525 card punch 
See 350573525 
eee peanteng subsystem (for the 3800 
only 
and EXCP (for the 3800 only) 42, 43 
and OPTCD=J Cfor the 3800 only) 42, 
43, 51, 52 
3800 Printing Subsystem (for the 3800 
Printing Subsystem 
area (for the 3800 Printing Subsystem 
only) 218 
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